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Preface 


This manual describes the Integrated Data Store (T-D-S) system, which is 
an information-oriented method of integrating the operating function of a 


business. I-D-S reduces the system and programming cost associated with 
implementing some other types of integrated business systems. It uses 
direct-access storage as an extension of memory and provides an efficient 
data organization technique. 


Since I-D-S is used to extend the functions of the COBOL language, the 
reader should have a working knowledge of COBOL before using this manual. 


The I-D-S program is identified by catalog numbers CD600H5.100 and 
CD600H7.000 in the Program Library. 
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1. Introduction 


Integrated Data Store (I-D-S) is an information-oriented method of 
integrating the operating functions of a business. Its use reduces’ the 
high systems and programming costs associated with implementing some 
other types of integrated business systems. As a general-purpose system, 
it uses mass random access storage as an extension of memory and 
provides an efficient data organization technique. In addition, a simple 
but effective language is used to operate the system. 


Present procedural languages offer programming convenience in field and 
sequential record processing. However, they are inadequate for 
processing records in the random environment of mass storage. The I-D-S 
language provides a simplified means for record processing in the 
environment of mass random access storage. 


Language statements such as those for read/write operations produce 
serial rather than random actions. Ordinarily, the burden of organizing 
data records and designing the logic involved in processing and 
maintaining these records is placed upon the programmer. iiany of these 
processing and maintenance functions are performed automatically by the 
I-D-S software system. 


2. Data Organization 


Data organization refers to the interrecord relationships established 
within the I-D-S data-file. The record is the basic unit of data. Record 
association is achieved through chains which provide cross-reference 
linkages between records. These chains provide the integrating force 
which is implied in the name Integrated Data Store. 


Next Next 


In In 
Chain X Chain X 
147 176 


Next 
In 
Chain X 
849 


Figure 1. Chain Association 


I-D-S records are stored only once. Conventional approaches to file 
organization often require records, or certain fields in the records, to 
be repeated in several files. With the ability to integrate records into 
any number of chains (as required by the system), the same data fields 
are available no matter which of its chains are processed. This 
technique has five important advantages: 


1. Additional space required for duplicate records is eliminated, 
resulting in a reduction in the total storage capacity 
required. 


2. The work of data maintenance is greatly reduced, as there is 
only one record to retrieve and modify. 


3. The possibility that one copy of a record will not be properly 
modified is eliminated. Since there is only one copy, any 
incorrect information will be quickly recognized and corrected. 


4. All reports drawn from the file will be consistent, since there 
is only one set of facts (records). 


5. Due to the linking capability, the homogeneity of a file needs 
no longer to exist and records of different types may be 
intermixed to achieve a better utilization of the storage 
capacity. 


|-D-S CHAINS 


An I-D-S chain is illustrated in Figure 2. 


All records in a chain are associated in a closed loop, with the last 
detail linked back to the master. Its characteristics are: 


Contains one master record and any number of detail 
records 

Links records together in an endless loop 

Associates related records in meaningful sequences 


Records are to be defined by the user as to their relationship within a 
chain--as master or detail records. These relationships are specified, 
when the chaining relationship is described, in the data description. 


A chain is a set of records that are linked together to form a _ logical 
relationship between records. 


A Master Record is the head of a set of records that make up ae chain. 
There must be one and only one Master Record for each chain. Detail 
records are the other records that are members of the set or chain. 


Detail 1 


Detail 2 


Figure 2. I-D-S Chain 


Multiple Chains 


Chains exist for two separate but closely related reasons. First, the 
source documentation or problem analysis shows that a portion of the 
information is often cross-referenced. An example is a personnel record 
with a variable number of deductions and work experiences. 


This kind of information is easily structured by building a personnel 
master record type. Two chain types are created containing the personnel 
record as the master record. As many deduction records as necessary are 
linked into the deduction chain as details. Work experience for the 
employee involved is handled in a like manner. Both chains are now 
linked to the same master record, as shown in Figure 3. 


The second case involves the logical association of several source 
documents. Relating all the purchase order information for a_ given 
vendor to the vendor information is an example. A purchase order chain 


associates all of the purchase order records with their vendor record. 


I-D-S chains have several structural aspects which should be emphasized: 


All similar chains are grouped by chain type. 


A chain type is named with a symbolic name. There will be as many 
chains of the chain type as there are master records for that chain 


type. 


Each chain can have only one master record. Its type is the same 
for all chains of the same type. 


Any number of detail records may be in a chain. A chain may even 
contain more than one type of detail record. 


Detail records cannot be stored unless their master record already 
exists in the file. 


Whenever a master record is deleted, its entire chain i1s_ also 
removed. 


EX PERIENCE DEDUCTION 


#1 


PERSONNEL 
RECORD 
MASTER 


WORK 
EXPERIENCE 
CHAIN 


DE DUCT ION 
CHAIN 


WORK 
EXPERIENCE 
#2 


DEDUCTION 
#2 


DEDUCTION 
#n 


Figure 3. Master Record of Two Chains 


The master record of the chain contains a code which references the 
first detail in the chain. 


A record may be defined to be a member in as many chains as are 
required. It may be defined as master in one chain and detail in 
another. 


A record cannot be defined as a detail to itself, directly or 
indirectly. 


As records are stored in the system, they are automatically linked 
into their defined chains. 


When a record is deleted, the chains in which it is a detail record 
are automatically modified to relink around the deleted record, 
which will eventually be physically deleted. 


STRUCTURE REPRESENTATION 


A special graphic technique called I-D-S shorthand has been developed to 
display records and their chaining relationships. 


Its use is particularly important in developing an over-all view when 
planning a database structure. This technique (see Figure 4) uses a 
block shape to designate a record type--employee (record type 1) and 
deduction (record type 2)--and an arrow connecting two blocks’ to 
designate a chain type. The arrow points from the master to the detail, 
as shown in Figure 4. 


Emp loyee 


(master record) 


Deduction Chain 


Deduction 


(detail record) 


(Expanded Version) 


Emp loyee 
(master) 


Deduction #1 (Deduction) Deduction #n 
(detail) CHAIN (detail) 


Deduction #2 
(detail) 


Figure 4. I-D-S Shorthand 


in the foregoing example of I-D-S shorthand, the vertical 
block-arrow-block sequence carries the following message: 


1. There are a number of records in the system of the master type 
(one for each employee). 


2. Each of these records is the master of a chain of the specified 
type (deduction). 


3. There are a number of records of the detail type (deductions l, 
2, 3, 4, ete.) in each such chain. 


The purchase order data structure (Figure 5) shows how a vendor record 
and a particular order record from the example shown in Figure 6 is 
normally structured in the I-D-S system. 


Vendor 
Record 


Purchase Order Chain 


VENDOR 34692 


Purchase Inventory 
Order Item 
Record Record 


Order Item Chain 


Inventory on Order Chain 


Order 


Item 
Record 


Figure 5. Purchase Order Data Structure 


The purchase order contains four groups of information. 
1. Information about the vendor--such as his name, address, and 
vendor code. 


2. Information about the order--such as the order number, due 
date, mode of transportation, and dollar value. 


3. Information about the order item--such as delivery date, 
quantity, unit price, and extended dollar value. 


4. Information about the inventory item--such as its 


identification and description. 


The data structure in Figure 5 shows all four groups and their chain 
associations with only four blocks and three arrows. To expand this 
structure, four different record types would be designed to carry the 
information contained in the four groups: 


Vendor record--There would be a vendor record for every vendor with 
whom the business is concerned: 


1. It would be the master record of a purchase order chain. 


2. Thus, the vendor record is only a master. 


Purchase order record--There would be an order record for each. 
order currently stored in the system: 


1. It would be a detail in the purchase order chain. 


2. Each order, in turn, would be the master of an order item 
chain. 

3. Thus, the purchase order record is both a master and a 
detail. 


Order item record--There would be an order item record for each 
item on each order: 


1. It would be a detail in the inventory on order chain. 
2. It would be a detail in the order item chain. 


3. Thus, the order item record is a detail in two chains. 


10 


Inventory item record--There would be an inventory record for 
inventory item currently stored in the system: 


It would be the master record of the inventory on order chain. 


One expanded data structure concerning Vendor # 34692 for the 
records is shown in Figure 6. 


Vendor 
#34692 


Purchase Order 
Order #207A 
Chain 


Order 
#147A 


Purchase 
Order 
Item 
Chain 


Item #2 
Qty. 20 


Inventory 
On Order 
Chain 


Inventory 
Item AAA 


Figure 6. Chain Network 


Inventory Item #1 Inventory 
Item CCC Qty. 10 Item BBB 


Item #1 
Qty. 15 


each 


above 
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SUMMARY OF DATA STRUCTURES 


By using I-D-S shorthand, very complex data structures may be 
in a condensed and understandable form. Figure 7 shows a quick summary 
of data structures which are legal and illegal within I-D-S. A circular 


definition (item 6), where the master becomes its own detail, is not 
allowed. 


Illegal 
Structure 


Figure 7. Legal and Illegal I-D-S Data Structures 
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Record Classes 


I-D-S provides three distinct record classes. The designation of the 
data records as to class is the option of the systems designer and is 
based on the storage and retrieval requirements of these data records. 


I-D-S record processing requires that there be some aspect of every 
record which makes it unique, or different from any other record. All 
records are unique by virtue of their reference code. Some records are 
also unique because they contain one or more data fields--such as a 
drawing number, order number, and pay number--where no duplicate vlues 
are allowed. 


CALCULATED RECORDS. Any set of records within the system can be 
classified as a calculated record. Its storage and retrieval are based 
upon the contents of one or more data fields. The contents of these 
fields are externally specified values--such as employee numbers, part 
numbers, or order numbers. The contents of these fields are processed 
through a randomizing procedure which determines a page number for an 
initial storage location. The record is stored on this page. If space is 
not available on the calculated page, the record is stored on the next 
successive page with available space. The subsequent retrieval of this 
record follows this same basic procedure. 


SECONDARY RECORDS. Secondary records are unique by their chain 
relationship to a specified type of master record. The item records 
associated with a purchase order (master) record are good examples of 
secondary order records. These records are stored and retrieved by first 
locating the purchase order record and then stepping through the order 
item chain to locate the item record by comparison of its item number 
field. 


PRIMARY RECORDS. Records designated in the data description as primary 
are unique only as a result of their reference codes. Generally primary 
records are used in place of calculated records where the external 
assignment of identification fields, such as part number or order 
number, is not required. In these cases, an internally generated number 
(the reference code) is assigned and used as the key field for storage 
and retrieval. 
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I-D-S RECORDS 


The I-D-S record contains a set of data fields which colle e 
describe the contents of the record. I-bD-S augments these records wi 
identification and chain fields (or chain pointers) as shown in Figure 
8. 


Identification Data Fields Chain Fields 
Field 


Figure 8. I-D-S Record 


There is at least a chain field generated for each chain the record 
participates in. 


The chain fields contain the reference codes of other I-D-S'_ records. 
They point from one record to the next, creating a circular association 
of records (see Figure 1). 


These associations are automatically processed according to the data 
descriptions and the procedural commands executed. The arrows in Figure 
l indicate the linking actually carried out through storing the 
reference code of one record in the body of the prior record. 


A reference code is the relative logical (as opposed to physical) 
address of a data record. It consists of a page number and ae line 
number. The reference code is used by I-D-S to develop and assign a 
unique address to each data record as it is stored on the mass storage 
device. Once a record is assigned a reference code, it maintains that 
reference code until it is physically deleted. 


The reference code in its 24-bit binary form is available to the user in 
a communication area called DIRECT-REFERENCE immediately after the 
record is stored. For internal use, I-D-S uses a binary number of the 
form: 


XXXXXXYY 


where X is the octal page number and Y is the octal line number. 
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The page number is a sequential number permanently assigned to each page 
which defines where in the I-D-S environment the page is stored. It 
occupies three character positions and permits 262,143 pages per I-D-S 
file. At execution time page numbers are converted to actual mass 
storage device addresses by the I-D-S mapping routine. 


The line number defines where a record is stored within a page. Line 
numbers are not sequential within the page because new records are 
always stored at the end of a page. Line numbers of deleted records are 
made available for use by new records; the first available line number 
(the first line number not in use) is assigned to a new record as it is 
stored into a page. The line number occupies one character and permits 
63 line numbers per page. 


For example, a reference code (as contained in DIRECT-REFERENCE) of 
00010029 decimal becomes 00023455 when converted to octal. This then is 
page 234 (octal), line 55 (octal). 


Linking Detail Records of a Chain 


In order to insert a new detail record in a chain, three steps are 
required: 


1. Physical storage space must be found. 


2. The appropriate master and its chain must be selected. 


3. The record must be inserted in that chain according to _ the 
chain ordering rules. 


Selecting Master Record of a Chain 


There are two rules under which the master record is selected for a new 
detail record. These are: 


1. Select Unique Master--This rule uses the record retrieval 
criterion, established in the data definition for the master 
record, to retrieve the particular master record indicated by 
the data values currently stored in the match control field of 
Working-Storage. 


2. Select Current Master--This rule uses the last record 


processed, of the master record type, as the master record of 
the new detail. 
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Chain Ordering 


methods 


All chains in the Integrated Data Store system are ordered in one of six 
a 


selected by the system designer wi 


the I-D-S language. 


The CHAIN-ORDER clause must be used in each Master Chain Definition 


entry. 


The six 


Lg 
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options of the CHAIN-ORDER clause are: 


Sorted--With this option all of the records of the chain are 
maintained in a single sequence regardless of the number of 
record types in the chain. With this option the same 
sorting-key(s) must be used to sort the various records. 


Sorted Within Type-=With “this Option, the. records: of. the: chain 
are maintained in sequence within record type, independent of 
other types. 


NOTE: When either of the sorted options is specified, details 
are added to the chain based upon the contents of the 
defined sort control fields of the detail records. 


First--This option causes the detail to be added as the first 
detail record in the chain relative to the master record. 


Last--This option causes the detail to be added as the last 
detail record in the chain relative to the master record. 


Before--This option causes the insertion of the detail record 
just before the current record in the chain. This option may be 
used only in conjunction with the Current Master selection 
rule. 


After--This option causes the insertion of the detail record 
just after the current record of the chain. This option may be 
used only in conjunction with the Current Master selection 
rule. 


Prime Chain 


Access time in present disc-type random access memories varies greatly, 
since it depends on the position of the desired record relative to the 
record last accessed. The I-D-S organization of records acknowledges 
this factor of hardware design and stores new detail records as close as 
possible to the master record of the chain. When a detail record is 
specified as a detail in several chains, a prime chain may be chosen and 
defined by the systems deSigner preparing the data description. 
Selection of a prime chain should be based upon an estimate of the most 
active chain. Thereafter, when an I-D-S page is retrieved which contains 
the master record of a prime chain, it is highly probable that the 
detail records of that chain will also be contained in that page or a 
page closely associated with it. The prime chain is the chain used _ to 
retrieve a secondary record by the RETRIEVE command, unless’ specified 
otherwise by the data description. 


Chain Processing 


I-D-S offers complete flexibility in the retrieval of records within a 
chain by providing three methods of chain inter-linking. 


Chain NEXT. The definition of a record as a memory of a chain 
automatically provides the record with a chain-next field. This is the 
manner in which all chains are constructed. Each record contains a 
chain-next field which contains the reference code of the next record in 
the chain. 


Chain PRIOR (optional). I-D-S provides a chain-prior field for all 
records in a chain when the chain is specified by the system designer as 
prior processable. This field contains the reference code of the prior 
record in the chain. This permits the chain to be processed efficiently 
in a backward direction, as well as forward (through the automatic NEXT 
chain field). 


Chain MASTER (optional). I-D-S provides a chain-master field for all 
detail records in a chain when specified in the data description. This 
field contains the reference code of the master record of the chain. 
Retrieval of the master record is much faster with this ability to 
address the master record directly from any detail in the chain. 
Processing need not access all the detail records in the process of 
seeking the master. 
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These methods are illustrated in Figure 9. 


Detail #1 Detail #n 


Detail #2 


Figure 9. Chain Processing 


Chain Tables 


Chain tables are used internally by I-D-S subroutines. A chain table is 
built by I-D-S for each chain defined. The programmer can reference 
selective information in the chain table, and a knowledge of what they 
are and how I-D-S uses them can help in designing efficient chains. 


A chain table comprises four entries: MASTER, PRIOR, CURRENT and NEXT. 
Refer to "Chain Processing" for a description of these entries. As I-D-S 
traverses a chain, the entries are updated with the reference codes of 
the data records that are being retrieved. 


Figure 10 shows a chain using dummy reference codes. 
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Master Record 
Ref Code = 101 


Detail 1 
Ref Code = 105 


Detail 3 
Ref Code = 407 


Detail 2 
Ref Code = 205 


Figure 10. Chain with Dummy Reference Codes 


To interpret the dummy reference codes: master record is 101, detail 
record 1 is 105, detail record 2 is 205, and detail record 3 is 407. 


Assume only the reference code of the master record is known. When I-D-S 
is asked to get detail record 2 of chain A, I-D-S retrieves the master 
record of chain A and traverses the chain until the detail record 2 is 
found. While I-D-S is traversing the chain, it is updating the chain 
table. When detail record 2 is found, the chain table appears as shown 


in Figure ll. 

pester ot 
porte | ats 
j currene | 08 | 
pee Lr 


Figure ll. Chain Table After Retrieval of Detail 2 
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Although the chain is not PRIOR processable and is not LINKED TO MASTER, 
detail 1 is directly available with a RETRIEVE PRIOR OF CHAIN A command. 
Because of the PRIOR entry in the chain table (in Figure 11), I-D-S 
would not traverse the chain forward through detail 3, master record, 
etc., to locate detail 1 but would retrieve it directly at the location 
stored at the PRIOR entry in the chain table. However, after detail 1 is 
retrieved by “backing up," the record prior to detail 1 is not’ known. 
Therefore, the chain table would now appear as shown in Figure 12. 


Pe fo 


Figure 12. Chain Table Backed Up to Detail l 


If a RETRIEVE PRIOR OF CHAIN A were executed at this point, I-D-S would 
have to traverse the chain until it found the PRIOR (in this case, the 
master) record. 


If the chain had been defined as PRIOR processable, the chain table 
would be updated as shown in Figure 13. 


Figure 13. Chain Table for a PRIOR Processable Chain 
after Retrieval of Detail 1 
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If a chain were not PRIOR processable, I-D-S could back up one record as 
though it were PRIOR processable if the prior record in the chain had 
been passed. 


Assume that the reference code of detail 2 is known and the chain is 
neither HEADED nor PRIOR processable. If a RETRIEVE DIRECT is executed, 
the chain table is updated as shown in Figure 14. 


== 
Pm foe 


Figure 14. Chain Table after Direct Retrieval of Detail 2 


(Unknown) 


(Unknown) 


Since the chain is neither PRIOR processable nor HEADED (LINKED TO 
MASTER) and I-D-S did not pass the PRIOR record or the MASTER record in 
getting to the CURRENT record, I-D-S does not know the reference code of 
the MASTER or the PRIOR record in this chain. It knows where the NEXT 
record is because of the chain-next field in detail record 2. 


If the chain has been defined as PRIOR processable and HEADED and I-D-S 
had retrieved detail 2 DIRECT, the chain table would appear as shown in 
Figure 15. 


2 


Figure 15. Chain Table--PRIOR and HEADED 


In this case, MASTER and PRIOR references were available from the chain 
fields in detail record 2. 
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3. I|-D-S Programming Language 


The source language of I-D-S is an extension of GE-600 Line COBOL; 
therefore, formats and language specifications of COBOL must be adhered 
to when preparing a source program. 


IDENTIFICATION DIVISION 


The purpose and usage of the Identification Division are identical with 
those defined for GE-600 Line COBOL, with no special function for I-D-S. 


Fixed paragraph names are used as keys in the division. They identify 
the type of information contained in the paragraph. Paragraphs which may 
be included in the division are: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. 

AUTHOR. 

DATE-WRITTEN. 
DATE-COMPILED. 

SECURITY. 

REMARKS. 


ENVIRONMENT DIVISION 


All portions of the Environment Division are used as defined by GE-600 
Line COBOL, in addition, I-D-S includes the IDS-SPECIAL-NAMES paragraph 
and the SELECT IDS sentence of the FILE-CONTROL paragraph. 


The following illustration is an example of the Environment Division 
with the use of these two I-D-S functions. 
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ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. GE-635. 


OBJECT-COMPUTER. GE-635. 


IDS-SPECIAL-NAMES. 
IDS BLOCK... 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT IDS file-name ASSIGN TO file-code-l. 


I-O-CONTROL. 
APPLY s «% 


CONFIGURATION SECTION 


IDS~SPECIAL~NAMES 


Configuration Section, IDS-Special-Names Paragraph 


Function: To indicate to the I-D-S translator which statements are to 
be selectively translated. To allow definition of a _ unique 
labeled common area for the generated structure of an I-D-S 
program. To allow RECORD, CHAIN and FIELD names to be 
included with the generated structure. To indicate to the 
COBOL compiler all translator generated sections and code are 
to be suppressed from the COBOL source listing. 

Format Option 1: 

IDS-SPECIAL-NAMES. 
ALL 


PROCESS DEBUG STATEMENTS 
LEVEL alpha-l THRU alpha-2 


Format Option 2: 


IDS-SPECIAL-NAMES. 


IDS BLOCK integer-l. 


Format Option 3: 
IDS-SPECIAL-NAMES. 


INCLUDE STRUCTURE NAMES. 


Format Option 4: 
IDS-SPECIAL-NAMES. 


APPLY LIST SUPPRESSION 


Notes: 


1. This paragraph may be omitted when its provisions are not’ used 
in the source-program. 


Rev. August 1971 
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The PROCESS DEBUG STATEMENTS option is a compiler directing 
clause that allows the programmer to specify that ail or 
certain selected debugging statements in the source program are 
to be processed. Debugging statements can be identified by a 
Single character (A-I) in column 7 of the coding form. When the 
programmer wants all the debugging statements in the source 
program processed, he specifies this by writing PROCESS ALL 
DEBUG STATEMENTS. When the programmer wants certain debugging 
statements processed, he specifies this by writing PROCESS 
LEVEL alpha-1 DEBUG STATEMENTS. When this is done, only those 
debugging statements with the specified character (alpha-1) 
appearing in column 7 are processed. 


In addition, the programmer can specify that a range of 
debugging statements are to be processed by writing PROCESS 
LEVEL alpha-1 THRU alpha-2 DEBUG STATEMENTS. When this is done, 
all the debugging statements in the range specified (alpha-l 
THRU alpha-2) are processed. Note that when debugging 
statements identified by a single character in column 7 appear 
in the source program and the PROCESS DEBUG STATEMENTS option 
is not included in the source program, those statements with a 
character in column 7 are unconditionally bypassed (i.e., not 
processed). The PROCESS ALL DEBUG STATEMENTS option has no 
effect on statements that have nothing, a hyphen, or an 
asterisk in column 7. 
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In option 2 the value of integer-l may be 01 through 99, 

If Option 2 is used, the labeled common area in which the I-D-S 
generated structure is assembled will be identified by a symbol 
of the form "I(integer-1)". If Option 2 is not used, the 


default symbol for this area will be ".IDS..". (Refer to the 
GE-600 Line General Loader Reference Manual, CPB-1008, for a 


ee 


discussion of labeled common.) 
Example: 
IDS-SPECIAL-NAMES. 

IDS BLOCK 66. 


This would cause the symbol "I66" to be used for the I-D-S 
generated structure block. 


Option 3 is used to cause the names of RECORDS, CHAINS and 
FIELDS to be assembled into the definition structure of the 
I-D-S-STRUCTURE SECTION. 

Option 3 will have primary use for programs that use the TRACE 
and PRINT RECORD, DEBUG, and Utility Subroutine .QSTC, (Chapter 
8) 


Option 4 gives the user the ability to suppress printing of all 
translator generated coding from the COBOL source listing. 


The following will be suppressed from the COBOL source listing: 


a. All I-D-S generated structure within the Working-Storage 
Section. 


b. All generated calls to the I-D-S subroutines within the 
Procedure Division, 


c. The generated Macro calls within the I-D-S Structure 
Section. 


d. All generated tables and constants. 
e. All generated Enter Definitions. 


The statements in IDS-SPECIAL-NAMES paragraph may be in any 
desired order. 
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INPUT-OUTPUT SECTION 


FILE-CONTROL 


Input-Output Section, File-Control Paragraph 


Function: To assign an I-D-S file name and to specify the logical 


Format: 


device on which it resides. 


FILE-CONTROL. 


SELECT IDS file-name ASSIGN TO file-code-1. 


The SELECT IDS entry must be used only once to identify the 
I-D-S data file. 


Other optional clauses of the SELECT entry as specified for 
COBOL should not be used with the SELECT IDS sentence. 


File-code-1l must be a two-character word consisting of two 
letters (A,....,2) or a letter and a digit (0,....,9). Each 
file code must be unique with respect to other file codes in 
the program. 
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DATA DIVISION 


e a file is contained in a special section 
of the Data Division called the IDS Section. This section must 
physically follow the Working-Storage Section, if present, and precede 


the Constant Section. 


The IDS Section contains a File Description, Record Description, and 
Chain Definition as required to describe the complete data file. 


The following illustration shows the fixed sections of the Data Division 
in the order in which they must appear in the source program. A’ section 
may be omitted if it is not needed. 


Data Division. 

File Section. 
Working-Storage Section. 
IDS Section. 

Constant Section. 

Report Section. 


File Description 


The File Description entry provides information regarding the physical 
characteristics of the I-D-S data file. The entry is used only for 
documentation purposes and must appear only once in the I-D-S_ source 
program and must be the first entry in the IDS Section. 


The entry consists of a level indicator, a file name, and a_ series of 
clauses which define the physical characteristics of the I-D-S file. The 
mnemonic level indicator MD is used to identify the start of the File 
Description entry and to distinguish it from the Record, Field and Chain 
Descriptions. The format for the complete I-D-S File Description entry 
follows. 
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COMPLETE I-D-S FILE 


DESCRIPTION ENTRY 


Complete I-D-S File Description Entry 


Function: To describe the physical structure of an I-D-S file. 


Format: 


MD file-name [;PAGE CONTAINS integer-1 CHARACTERS | 


Notes: 


*GECOS, 


[;FILE CONTAINS integer-2 PAGES | : 


The file-name must be identical to the one used in the 
SELECT IDS sentence of the FILE-CONTROL paragraph of the 
Environment Division. 


Other optional phrases of the File Description entry as 
specified for COBOL do not apply to the IDS Section and must 
not be used. 


The PAGE size (integer-1l) specified may be any value up to a 
maximum of 4096 characters. However, the most efficient use of 
the storage capacity of the mass storage device involved should 
be considered when establishing the page size. 


The FILE clause expresses the total physical storage 
requirements of the I-D-S file. This value must be equivalent 
to or less than the capacity which has been reserved for the 
file by the allocation procedure of GECOS. See the GE-600 Line 
Comprehensive Operating Supervisor (GECOS* III) Reference 
Manual, CPB-1518, for a discussion of the allocation of 
permanent random disc or drum files. The maximum number of 
pages possible within the I-D-S page numbering system is 
262,143. 


Page and file size is for documentation only; it is not used 
during execution. 


Trademark 
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Page and file size clauses are not required. 


The clauses may appear in any order within the 


+ + a 72th . 
entry must end with a pericd. 


Example: 


IDS SECTION. 
MD DATA-BASE: PAGE CONTAINS 1920 CHARACTERS; 
FILE CONTAINS 100000 PAGES. 
O01 UNIT-MASTER-REC; 
TYPE IS 070; 
RETRIEVAL VIA MASTR FIELD; 
02 MASTR;SIZE 8 NUMERIC. 
98 UNIT CHAIN MASTER; 
CHAIN-ORDER IS SORTED. 


entry. 


The 


Record Description 


Record Description entries are used to: 


1. Provide information to I-D-S regarding the external format 
of each logical record type as it will exist within a page 
on the external storage device. 


2. Define internal Working-Storage areas which serve as 
communication interfaces between the user's routine and 
the I-D-S data file. 


3. Provide parameters which control I-D-S processing. These 
parameters are defined at levels 01 and 98. 


The external format of an I-D-S record consists of control fields and 
data fields. Records are stored as fixed-length records. Each record 
contains identification fields, a chain field for each chain association 
specified, and as many characters of data as required by the level 02 
entries. 


The level 02 entries are packed into the records, and records are packed 
into pages on a character-oriented basis. Computer word orientation is 
never used. When a record is retrieved from the storage device, the data 
fields of the record are available to the user only after they are moved 
to working storage. Before storing a record, the Working-Storage area 
must first have been initialized with the data fields of the record to 
be stored. 


The I-D-S Translator creates an internal Working-Storage area for each 
level 02 entry. The area created may contain subfields which are defined 
by lower level entries and may be separately referenced by user COBOL 
procedure statements. However, I-D-S operates only on units of data 
defined by the level 02 entry. Therefore, any field that is to serve 
either as a control field or that is to be modified by I-D-S must be 
defined as a level 02 entry. 


The Translator produces parameters from the clauses that are defined at 
levels 01 and 98. Lower level entries (03-49) may be used to define 
subfields of the level 02 entry. Any legal COBOL description clause may 
be used as long as it does not contradict the description provided for 
the level 02 antry. For a further clarification of the GE-600 Line COBOL 
Reference Manual, CPB-1652. 


The parameters are described in detail on the following pages. 
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The level 02 data names may not be used for qualification. Qualification 
of lower level entries up to level 02 is permissible. If the same data 
name occurs aS an 02 entry for different record types, the same 


a : as ny a Ne TET, TE a DR ay i 
Working-Storage area will be shared by the various records involved. 


Standard COBOL record description clauses allowed at level 02 are 
REDEFINES and FILLER. They do not generate Working-Storage areas. 


REDEFINES may be used for redefinition of an area previously defined. 
This enables COBOL procedural statements to reference the 
Working-Storage area by either of its definitions. The field-oriented 
functions of I-D-S (MOVE, MODIFY), however, respond only to the original 
definition of the field. 


The use of FILLER as a data-name creates space in the external format 
only. 


Although the PICTURE clause is the significant element of the level 02 
description, any of the standard COBOL clauses may be used with the 
following exceptions: 


OCCURS 

RENAMES 
Editing clauses 
COPY 
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COMPLETE I-D-S RECORD 


DESCRIPTION ENTRY 


Complete I-D-S Record Description Entry 
Function: To specify the parameters which define an I-D-S record. 


Format: 


01 record-name; TYPE IS integer-1 


field-name FIELD 
; RETRIEVAL VIA chain-name-1 CHAIN 
CALC 


integer-2 TO integer-3 
;PAGE-RANGE IS 
field-name-1l TO field-name-2 
[ ;PLACE NEAR chain-name-2 CHAIN] 
[ ; INTERVAL IS integer-4 PAGES | 


[ ;AUTHORITY IS integer-5 | 


Notes: 


1. Each of the above clauses is applicable only at record level 
Ol. 


2. Record-name must be unique, since qualification by file name is 
not meaningful. 


3. The clauses may appear in any order within the entry. The 
entry must end with a period. 


4. All format considerations are as specified for COBOL. 
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Type 
Function: To define the Record Type code to be used for 
Dad . : 
purposes for each record type within I-D-S. 
Format: TYPE IS integer-1l 
Notes: 


1. This clause is required for each level 01 entry. 


2. iInteger-l may be any value from 1 to 999. 
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RETRIEVAL VIA 


Retrieval Via 
Function: To specify procedures for retrieving and storing a record. 
Format: 
field-name FIELD 
; RETRIEVAL VIA chain-name-1 CHAIN 
CALC 
Notes: 
1. This clause is required for each level 01 entry. 


2. 


Records specified for RETRIEVAL VIA field-name FIELD are 
referred to as primary records. 


Field-name must be defined at level 02 in this record. It must 
be specified as: 


02 field-name PICTURE 9(8). 


The field is not stored in the record; it exists only in 
working storage. The field-name FIELD is called the prime 
retrieval field. 


If the user wishes to retrieve a primary record using the 
RETRIEVE record-name RECORD statement of the Procedure 
Division, he must first initialize the field-name with the 
reference code of the record to be retrieved. 


When a primary record is stored, its reference code is_ placed 
into DIRECT-REFERENCE. The user may specify the page where he 
wishes a primary record stored by placing its reference code in 
the DIRECT-REFERENCE. Zeros may also be stored in 
DIRECT-REFERENCE which causes the record to be stored on a page 
most convenient to I-D-S. 


Placement of primary records can be modified by the PAGE-RANGE, 
PLACE NEAR, and INTERVAL clauses. 
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Records specified for RETRIEVAL VIA chain-name-l CHAIN are 
referred to as secondary records and are retrieved by their 
association in the named chain. The chain-name-l CHAIN is the 


When the RETRIEVAL VIA chain-name-1l CHAIN clause is used, the 
record must be specified at level 98 as chain=-name-l1 CHAIN 
DETAIL. 


When the RETRIEVE record-name RECORD statement of the Procedure 
Division is used, the master record of the chain-name-1 CHAIN 
is first retrieved. Then the specific detail record is found by 
searching the chain. 


If the CHAIN-ORDER is FIRST or LAST, then the RETRIEVAL VIA 
chain-name CHAIN clause causes the record to be stored on the 
page of the master record of the chain named in the clause. 
Otherwise, the record is stored in the page of the current 
record of the chain named. When a secondary record is_ stored, 
I-D-S places its binary reference code into DIRECT-REFERENCE. 
Placement of secondary records can be modified by PAGE-RANGE, 
PLACE-NEAR, and INTERVAL clauses. 


Records specified for RETRIEVAL VIA CALC CHAIN are referred to 
as calculated records. 


RETRIEVAL VIA CALC CHAIN operates the same as RETRIEVAL VIA 
chain-name-1l CHAIN, except that the master record of the chain 
is a Page Header record. The CALC CHAIN is called the prime 
retrieval chain for the record. 


When the RETRIEVAL VIA CALC CHAIN clause is used, the record 
must be specified at level 98 as a CALC CHAIN DETAIL. 


When the RETRIEVE record-name RECORD statement of the Procedure 
Division is used, the Page Header record is first retrieved. 
Then the specific detail record is found by searching the CALC 
chain. The Page Header record is found by randomizing the 
values in the control fields defined in the detail record to be 
retrieved. The number resulting from the randomization is 
mapped into the effective page range of the detail record to be 
retrieved, thereby yielding the page number of the Page Header 
record whose CALC chain is to be searched. 
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The RETRIEVAL VIA CALC CHAIN clause causes the record to be 
stored on the page calculated by randomizing on control fields 
and mapping into the effective page range of the record. 


Placement of calculated records may be modified by the 
PAGE-RANGE clause. PLACE NEAR and INTERVAL clauses do not apply 
to calculated records. 


5. These three RETRIEVAL procedures provide a basis for 
classification of each record as one of the following: 


Primary - Retrieved directly via reference code 

Secondary - Retrieved via its chain association 

Calculated - Randomized to the page containing the chain 
which leads to the record. 


Subsequent discussions of I-D-S will refer to records using these 
terms. 
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PAGE- RANGE 


Page-Range 


Function: 


Format: 


Notes: 
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To provide a method for plac var 
designated segment of an I-D-S file. 


integer-2 TO integer-3 
; PAGE-RANGE IS 
field-name-1 TO field-name-2 


Integer-2 and integer-3 represent the first and last page 
numbers of a series of pages in which records of a particular 
type are stored. If integer-2 is greater than integer-3, the 
series of pages wraps around the end of the file and terminates 
at a lower page number. 


For example, if a 900-page file contained record types A, B, 
and C, each record type could be isolated in a segment of the 
file by specifying a page range of 1 to 300 for A, 301 to 600 
for B, and 601 to 900 for C. 


The page numbers must fall within the total number of pages 
specified for the file. 


Different types of records may share the same page range. 


The PAGE-RANGE clause delimits the action of the RETRIEVAL VIA, 
PLACE NEAR, and INTERVAL clauses. 


The PAGE-RANGE clause may be used for calculated records. 


If PAGE-RANGE is not specified, the range is assumed to be 
equal to the page range of the entire file. 


If the field name option is used, field-name-1 and field-name-2 
must be defined in Working-Storage. 


Example: 


77 £field-name-1l PIC 9(6) COMP-1. 
77 field-name-2 PIC 9(6) COMP-1. 


The page range values must be placed in 


field-name-1l and 


field-name-2 prior to STORE of the record or prior to RETRIEVE 


of the record. 
Example: 


IDS SECTION. 
MD DATA-BASE; PAGE CONTAINS 1920 CHARACTERS; 
FILE CONTAINS 100000 PAGES. 
O01 UNIT-MASTER-REC; 
TYPE IS 070; 
RETRIEVAL VIA MASTR FIELD; 
02 MASTR PICTURE 9(8). 
98 UNIT CHAIN MASTER; 
CHAIN-ORDER IS SORTED. 


O01 UNIT-REC; 
TYPE IS 010; 
RETRIEVAL VIA CALC CHAIN; 
PAGE RANGE IS 1 TO 20000. 


01 QUAD4 
TYPE IS 004 
RETRIEVAL VIA CALC CHAIN 
PAGE-RANGE IS RNG-1 TO RNG-2. 
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PLACE 
NEAR 


Place Near 


Function: 


Format: 


To store a record physically near the master record of a 
specified chain. 


[;PLACE NEAR chain-name-2 CHAIN | 


Notes: 
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l. 


Chain-name-2 must be a defined chain name. The record to be 
placed must be specified at level 98 as a detail of the chain 
named in the PLACE NEAR clause. 


The PLACE NEAR clause may only be used with primary and 
secondary records. 


If the CHAIN-ORDER is SORTED, SORTED WITHIN TYPE, FIRST or 
LAST, the record is stored on the page of the master record of 
the chain named in the PLACE-NEAR clause. Otherwise, the record 
is stored in the page of the current record of the chain. 


If a current record of the type named exists, the INTERVAL 
clause supersedes this clause. 


The PAGE-RANGE clause supersedes this clause when a conflict 
occurs. 


Records stored using this clause are subject to the overflow 
rule. 


INTERVAL 


Interval 


Function: To enable uniform distribution of records of a given type 
across the I-D-S file. 


Format: 


[; INTERVAL IS integer-4 PAGES | 


Notes: 


1. Integer-4 represents the number of pages which will be skipped 
when a record is stored. 


2. The INTERVAL clause may only be used with primary and secondary 
records. 


3. Normally, primary records are stored physically according to a 
reference code furnished by the user. Secondary records are 
stored physically near the master record of the chain specified 
in the RETRIEVAL VIA chain-name-1 CHAIN clause or according to 
a PLACE NEAR clause. When INTERVAL is used, the above criteria 
apply only to the first record of the stored type. That is, if 
I-D-S has not processed a record of this type, the CURRENT 
record value is zero and INTERVAL is not in effect. Subsequent 
records are stored integer-4 pages away from the current record 
of the specified type. The current record is either the last 
record of the type stored or the last record of the type 
retrieved. 


For example, if the last record of type A is stored on page 5 
and interval is 3, the next record of type A would be stored on 
page 8. 


4, The INTERVAL clause is used normally for initial file loading 
of primary master records. By specifying an interval, the user 
can ensure sufficient space between the master records to store 
the detail records in their chains. 


5. When INTERVAL reaches the end of the page-range or end of the 
file, it reverts either to the beginning of the page-range or 
to the beginning of the file. 


6. Records stored using this clause are subject to the overflow 
rule. 


7. Application of INTERVAL by I-D-S is not continuous between 
computer runs. If it is to continue from day to day, it must be 
reinitialized by retrieving the last record of the type 
processed in the previous run which makes it current in this 
run. Storage may continue from this point. 
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AUTHORITY 


Authority 


Function: To safeguard data in a record against unauthorized reference 
or modification. 


Format: 
[;AutHORITY Is integer-5] 
NOTE: Integer-5 may be any value not exceeding 4095(10). The value 
supplied is used as a lock for data in any record of this’ type. 
When this record is referred to during execution, a key must have 


been supplied that matches the lock. The key is supplied by the 
OPEN statement which is defined in the Procedure Division. 
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Chain Definition 


A record belongs to at least one, and possibly many chains. A Chain 
Definition entry must exist for each chain in which the record is 
included. All Chain Definition entries for a given record must 


immediately follow the Record Description entries for that record. 


The Chain Definition entry consists of a level 98 indicator which names 
the chain that a level 01 record is either a detail or master in, a 
chain name, and a series of clauses which define the characteristics of 
the chain. The complete Chain Definition entry skeleton and a detailed 
description of the clauses follow. 
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COMPLETE CHAIN 


DEFINITION ENTRY 


Complete Chain Definition Entry 


Function: To name and describe the interrecord relationship between a 
master and detail record and to direct the placement of a 
record into the I-D-S file. 


Format Option 1 (Master): 


98 chain-name-1l CHAIN MASTER 


SORTED WITHIN TYPE 

SORTED 
;CHAIN-ORDER IS FIRST 

LAST 

BEFORE 

AFTER 


[; LINKED TO PRIOR] 


Format Option 2 (Detail): 


CALC 


98 (enc | CHAIN DETAIL 


[; RANDOMIZE ON field-name-1 [;RaNDoMIZE. | 


ARE FIRST 
; DUPLICATES ARE LAST 
NOT ALLOWED 


ASCENDING 
KEY IS field-name-2 


. 
’ 


ASCENDING... | 
DESCENDING DESCENDING... 


[ASCENDING RANGE KEY IS field-name-3] 
[isuuncr UNIQUE MASTER 
CURRENT 
[ smarcH-Key Is field-name-4 [iazcu-Key. 7] 


[ sMAmCH-KEY Is a ae field-name-4 HamCH-KEY. . J 
SYN 


E LINKED to MASTER] 
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MASTER/DETAIL 


Master /Detail 


Function: 


To describe a record as either a detail or master of a chain. 


Format Option 1: 


98 


chain-name-1 CHAIN MASTER 


Format Option 2: 


98 ao CHAIN DETAIL 


Notes: 


CALC 


This entry must be a level 98. 


Option 1 defines a record as the master record of a chain 
structure. One option 1 entry is required for each chain 
structure for which the record is the master. A single chain 
structure can have only one master record but a single record 
can be the master of more than one chain structure. 


In the example below UNIT-REC is a master record in the 
SUB-UNIT CHAIN, the ASSIGNMENT CHAIN and the COMPLEMENT CHAIN. 


Option 2 defines a record as a detail record in a chain 
structure. One option 2 entry is required for each chain 
structure in which the record is a detail. A record may be a 
detail in more than one chain structure. A single chain 
structure can be made up of any number of detail record types. 


In the example below UNIT-REC is a detail record in the CALC 
CHAIN and the UNIT CHAIN. 


The record may be a master in one chain structure and a detail 
in another. In this case, both options are required for that 
record. A record may not be defined as both MASTER and DETAIL 
in the same chain. 


In the example below, UNIT-REC is a master record in the 
SUB-UNIT CHAIN, the ASSIGNMENT CHAIN and the COMPLEMENT CHAIN. 
It is also a detail record in the CALC CHAIN and UNIT CHAIN. 
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6. 


CHAIN clause is used in the level 01 Record Description 


entry, 


an option 2 entry must name the appropriate chain structure. 


The following statements illustrate this rule: 


01 SUB- 


02 
98 


Example: 


UNIT REC; 

TYPE IS 030; 

RETRIEVAL VIA SUB-UNIT CHAIN; 
PAGE-RANGE IS 1 TO 20000. 
SUB-UNIT-CODE; SIZE 4 NUMERIC. 
SUB-UNIT CHAIN DETAIL; 


Ol UNIT-REC; 


02 


02 
02 
02 
98 
98 
98 
98 


98 


TYPE IS 010; 
RETRIEVAL VIA CALC CHAIN; 
PAGE RANGE IS 1 TO 20000. 
UNIT-CODE: SIZE 4 NUMERIC. 
03 DIVISION-CODE: SIZE 1 NUMERIC. 
03 DEPARTMENT-CODE: SIZE 1 NUMERIC. 
03 GROUP-CODE: SIZE 1 NUMERIC. 
03 SECTION-CODE: SIZE 1 NUMERIC. 
REPORTING-UNIT: SIZE 4 NUMERIC. 
ORG-NAME: SIZE 20 ALPHANUMERIC. 
TOTAL-BUDGET: SIZE 7 NUMERIC. 
CALC CHAIN DETAIL; 
RANDOMIZE UNIT-CODE. 
SUB-UNIT CHAIN MASTER; 
CHAIN-ORDER IS SORTED. 
ASSIGNMENT CHAIN MASTER; 
CHAIN-ORDER IS FIRST. 
COMPLEMENT CHAIN MASTER; 
CHAIN-ORDER IS SORTED. 
UNIT CHAIN DETAIL; 
SELECT CURRENT MASTER; 
ASCENDING KEY IS UNIT-CODE; 
DUPLICATES NOT ALLOWED. 


CHAIN-ORDER 


Chain-Order 


Function: 


Format: 


To specify the criteria for sequencing detail records within 
a chain. 


SORTED WITHIN TYPE 


;CHAIN-ORDER IS SORTED 


FIRST 
LAST 
BEFORE 
AFTER 


This clause must be used in each Master Chain Definition entry 
(option 1). 


If either SORTED or SORTED WITHIN TYPE is used, detail records 
are positioned in the chain according to the value of their 
sort control fields. 


If SORTED is used, the various records of the chain are 
Maintained in a single sequence regardless of the number of 
record types in the chain. The size and class of sort control 
fields of the various records must be identical. 


If SORTED WITHIN TYPE is used, records of the chain are 
Maintained in sequence within a record type, independent of 
other types. This does not mean that there is an implied major 
sort by record type code. It means only that when a given type 
of record is considered, it is in sequence by its own sort key. 


An example of a SORTED and SORTED WITHIN TYPE chain follows. 
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Sorted Chain 


| TYPE 1 | 
TYPE 2 
VALUE 67 
TYPE 1 
VALUE 68 
TYPE 3 
VALUE 78 


Sorted Within Type Chain 


CHAIN-MASTER 


TYPE 4 
VALUE 101 


TYPE 3 
VALUE 90 


TYPE 4 
VALUE 89 


TYPE. 2 
VALUE 79 


CHAIN-MASTER 
THRE 1 VALUE. 90 
VALUE 56 


er TYPE 4 
VALUE 67 VALUE 101 
TYPE 3 TYPE 1 
VALUE 78 VALUE 68 
e VALUE 79 
VALUE 89 


The last four forms, FIRST, LAST, BEFORE, and AFTER, of this 
clause cause a detail record to be inserted in the chain 
relative to some other record in the chain. These options are: 


FIRST Insert detail record in chain immediately following the 
master record. 


LAST Insert detail record in chain immediately preceding the 
master record. 


BEFORE Insert detail record in chain immediately preceding the 
current record of chain. 


AFTER Insert detail record in chain immediately following the 
current record of chain. 


The current record of a chain will always be the master record 
if SELECT UNIQUE MASTER has been specified. 


The selection of the BEFORE and LAST Options causes I-D-S_ to 
create an extra chain field which contains the reference code 
of the immediately preceding record of the chain. 


BEFORE causes the creation of this field in all record types of 
the chain. LAST introduces this field in the master record type 
only. 


The BEFORE and AFTER forms are compatible only with the SELECT 
CURRENT MASTER clause. 


If the chain has been defined as LINKED TO PRIOR and _ the 
CHAIN-ORDER IS BEFORE clause is used, the records in the chain 
are assigned only one chain field PRIOR; there is no 
duplication of chain fields. 


When a record is defined as a detail of a calculated chain, no 


order is maintained because calculated chains have no defined 
sequence control. 
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LINKED PRIOR 


Linked Prior 


Function: To provide an additional chain field in each recor of a 
chain which contains the reference code of the immediately 
preceding record in the chain. This field allows a chain to 
be traversed in either direction. 


Formats: 


[; LINKED TO PRIOR| 


Notes: 


1. This clause is used only in the Master Chain Definition entry 
(option 1). It provides a prior chain field in each record of 
the chain so that the chain may be traversed in either 
direction. This feature is especially serviceable when using 
either the RETRIEVE PRIOR or MODIFY verbs. It also enables’ the 
immediate removal of a deleted record which would otherwise 
stay linked in this chain until the chain was traversed again. 


2. Chain PRIOR fields have two disadvantages. First, the record 
size is increased to provide space for the additional field. 
Second, the linking process is slower because the chain PRIOR 
field of the next record must be adjusted when a new record is 
inserted. 


3. When the CHAIN-ORDER IS BEFORE clause is specified, I-D-S 
automatically provides a chain PRIOR field for all record types 
defined for that chain. 


When the CHAIN-ORDER IS LAST is specified, I-D-S automatically 
provides a chain PRIOR field for the master record only. 
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RANDOMIZE 


Randomize 


Function: To specify those fields of a calculated record used _ to 
generate the page number for record placement and retrieval. 


Format: 


j aNpour ze ON field-name-1l Faaupourze 


1. RANDOMIZE must be used for each calculated record. 


2. Field-name-1l must be a level 02 field contained in the record 
being stored or retrieved. 


3. The randomizing routine of I-D-S uses as many fields as are 
specified. 


4, The word RANDOMIZE must precede each control field specified. 
5. The fields designated as RANDOMIZE fields are compared at 
record storage time. An attempt to store a record with 


identical RANDOMIZE field values will be rejected as an error. 


6. This clause may only be used when RETRIEVAL VIA CALC CHAIN is 
specified at level Ol. 
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DUPLICATES 


Duplicates 
Function: To specify whether records with identical sort key values may 
exist in a chain and, if permitted, what ordering action 
should be taken. 
Format: 
ARE FIRST 
; DUPLICATES ARE LAST 
NOT ALLOWED 
Notes: 

1. This clause must be used and only used when the chain has’ been 
defined as a sorted chain by the CHAIN-ORDER clause. 

2. When duplicates are allowed, the new detail may be positioned 
as the FIRST or LAST of the string of records with identical 
sort key values. 

3. If duplicates are not allowed and an attempt is made to _ link 
records with identical sort key values (STORE or MODIFY), an 
error code is placed in the ERROR-REFERENCE communication area 
and the duplicate record is rejected. 

It is the user's responsibility to examine this communication 
area. 

4. Duplicates are not allowed in a CALC chain; however, it is not 


a2 


necessary to write the DUPLICATES NOT ALLOWED clause. Since 
CALC chains have no sequence, I-D-S ensures that there are no 
duplicates by searching the entire CALC chain before attempting 
to store a new CALC record. 


Ascending /Descending 


Function: To specify those data fields which control the sequence 
detail records in a chain. 


Format Option 1: 
ASCENDING ASCENDING... 


KEY IS field-name-2 
DESCENDING DESCENDING 


=e 
=e 


Format Option 2: 


[i ASCENDING RANGE KEY IS field-name-3] 


1. This clause must be used when a chain has been defined as 
SORTED or SORTED WITHIN TYPE chain. 


For example: O01 UNIT-MASTER-REC; 
TYPE IS 070; 
RETRIEVAL VIA MASTR FIELD. 
02 MASTR; SIZE 8 NUMERIC. 
98 UNIT CHAIN MASTER; 
CHAIN-ORDER IS SORTED. 


Ol UNIT-REC; 
TYPE IS 010; 
RETRIEVAL VIA CALC CHAIN; 
PAGE RANGE IS 1 TO 20000. 
02 UNIT-CODE; SIZE 4 NUMERIC. 
02 REPORTING-UNIT; SIZE 4 NUMERIC. 
02 ORG-NAME; SIZE 20 ALPHANUMERIC. 
02 TOTAL-BUDGET; SIZE 7 NUMERIC. 
98 UNIT CHAIN DETAIL; 
ASCENDING KEY IS UNIT-CODE; 
DUPLICATES NOT ALLOWED; 
SELECT UNIQUE MASTER; 
MATCH-KEY IS MASTR. 


ASCENDING/DESCENDING 


of 


2. Field-name-2 must be a level 02 field entry within the record 
being defined. In the above example, UNIT-CODE meets’ this 
requirement. However, field-name-2 may not be a level 02 field 
entry which has been specified at level 01 as a RETRIEVAL VIA 


field-name FIELD. In the above example MASTR cannot be a KEY. 
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sort control keys are required to define a chain 
sequence, the various field-names must be presented in sequence 
from major control field to minor, thus establishing the sort 
level OL each field. Each sort control key must be 


independently defined as either ASCENDING or DESCENDING. 


When multiple aort cmoantr 
WHET Musa psc 


When ASCENDING is used, the sorted sequence will be from lowest 
value of key to highest value. 


When DESCENDING is used, the sorted sequence will be from 
highest value of key to lowest value. 


Option 2, ASCENDING RANGE KEY is used when the record is’ to 
serve aS a range master. A range master is a detail record in a 
sorted chain. In addition, it is the master of a chain which 
includes detail records falling within the range of the range 
master. The value contained in field-name-3 controls’ the 
ascending sequence of the range masters. It also defines the 
upper range limit of details referenced by the range master. 


Range masters are used primarily to segment long sorted chains. 
The purpose is to reduce access time in reaching the detail 
records. 


The ASCENDING RANGE KEY clause modifies the search method of 
the RETRIEVE record-name RECORD and STORE record-name RECORD 
statements by searching the chain until the sort key value of 
the retrieved record is equal to or greater than the 
working-storage value of the record to be retrieved or stored. 


If the RANGE option is not specified, the chain is searched 
until the sort key value of the retrieved record is equal to 
the working-storage value of the record to be retrieved. 


A payroll master chain structure of employee detail records is 
illustrated below: 


Payroll Emp loyee 
Master Detail 


Record Record 


Master Chain 


By introducing range masters into the structure, the one long 
chain could be divided into several smaller ones. The structure 
would look like this: 


Payroll Payroll Employee 


Master Range Detail 
Record Master Record 


Master Chain Range Chain 


The steps used to create this structure include: 
1. Define Payroll Master record. 
a. Designate it master record of Payroll-Master chain. 


b. Designate CHAIN-ORDER as SORTED or SORTED WITHIN 
TYPE. 


2. Define Payroll Range Master record. 
a. Name within it a field RANGE-NO. 


b. Designate at as a detail record in the 
Payroll-Master chain. 


c. Name RANGE-NO field as an ASCENDING RANGE KEY. 

d. Designate it master record of Payroll-Range chain. 
3. Define Employee Detail record. 

a. Name within it a field EMPL-NO. 


b. Designate it as a detail record in Payroll-Range 
chain. 


c. Name RANGE-NO as MATCH-KEY for the Payroll-Range 
chain. 


d. Name EMPL-NO as a sort key or match-key for this 
record. 


At execute time the user would identify a range master by 
placing an employee number into RANGE-NO in working-storage. 
I-D-S selects the first range master in sequence whose value in 
RANGE-NO is equal to or greater than the value placed in 
RANGE-NO in working-storage. Once the range master is found, 
the detail record can be stored or retrieved along its chain by 
using EMPL-NO as control. 
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SELECT 


Select 


Function: 


Forma 


Notes 
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To specify the rule for selecting a specific master record 
from all master records of a given type when a detail record 
is being stored or retrieved by the RETRIEVE record-name 
RECORD statement or STORE record-name RECORD statement. 


es 
UNIQUE 
; SELECT MASTER 
CURRENT 

1. One of the two forms of the SELECT clause must be used in each 
Chain Description entry which specifies a level 98 chain 
detail. The SELECT clause does not apply to a CALC CHAIN DETAIL 
because the Page Header record (specified by the output of the 
randomizing procedure) is the unique master to be selected. 

2. When UNIQUE is specified, the master is selected by matching 
the data field values in a master record with those initialized 
by the user in working storage. The fields to be initialized 
are those specified as MATCH-KEY fields in the level 98 entry. 

3. When CURRENT is specified, the master of a chain relevant to 


current detail record of the named chain is selected. If the 
current record of the named chain is already the master, then 
it is selected. The responsibility for establishing the current 
master of the chain-name is left to the user. 


MATCH-KEY 


Match-Key 


Function: 


Format: 


To specify those fields which must be initialized by the user 
in working-storage to allow unique identification of the 
master record of a chain. 


[vaven-xey is field-name-4 [;MaTCH-KEY. P J 


Notes: 


ds 


This clause applies only to option 2 of the Chain Definition 
Entry. It must be used in conjunction with the SELECT UNIQUE 
MASTER clause. 


Only those fields necessary to uniquely select the appropriate 
master need be specified. If the master is a detail record ina 
higher level chain structure, match-key fields for selection of 
its master are named with it, but need not be named with this 
record. For example: 


Master 


Record A 


Chain A 


Master 
Record B 


Chain B 


Detail 


Record C 


When Master Record B is defined as a detail in Chain A, 
match-key fields are named for Master Record A. When Detail 
Record C is defined as a detail in Chain B, match-key fields 
are named for Master Record B, not for Master Record A. 
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The fields named in MATCH-KEY clauses depend upon the RETRIEVAL 
clauses specified for each of the higher-level master records 
defining the hierarchical structure which includes this’ record 


The following rules should be used in naming the appropriate 
Master record fields with MATCH-KEY clauses in this record. 


If the master record is defined as a primary record by the 
RETRIEVAL VIA field-name FIELD clause, the field-name must 
be named as a MATCH-KEY field-name for the detail record. 


If the master record is defined as a secondary record by the 
RETRIEVAL VIA chain-name CHAIN clause, each of the data 
fields which control the retrieval of the master record must 
be named as MATCH-KEY field names in this detail record. 
Thus, it is necessary that the master record be either in a 
sorted chain (sort keys) or a calculated chain (randomize 
keys). 


If the master record is defined as a calculated record by 
the RETRIEVAL VIA CALC CHAIN clause, the RANDOMIZE fields 
for that master must be named as MATCH-KEY fields. 


All applicable MATCH-KEY fields must be initialized in working 
storage with the desired values before storing the record or 
before retrieving it using the RETRIEVE record-name RECORD 
verb. This includes the match-key fields for all higher level 
master records involved in the chaining structure even though 
the fields were not named with this record. 


Synonym 


Function: 


Format: 


SYNONYM 


To specify an alternate name for a field defined as a 
MATCH-KEY field. 


samen Is [prea (ser) | ne 
——— SYN. 


Notes: 


1. 


The use of the SYNONYM option within the MATCH-KEY clause 
defines an alternate name (field-name-5) for the MATCH-KEY 
field (field-name-4). 


The alternate name (field-name-5) must have been previously 
defined in the Working-Storage Section in exactly the same 
format as the MATCH-KEY field for which it is an alternate. 


Example: 


MASTER RECORD 
TYPE X 
Control Field=200 


MASTER RECORD 
TYPE X 
Control Field=100 


DETAIL 
NE 


Detail record type Y is defined in chain structures A and B. 
Chains A and B have the same record type (X) as their master 
records. Therefore, each of the two different master records of 
type X must be uniquely identified when the type Y detail 
record is stored. 


I-b-S stores the detail record into Chain A with one store 
Operation. The master record control field is named with a 
MATCH-KEY clause when detail Y is defined in both chains. In 
addition, for Chain B, an alternate working-storage area is 
named using the SYNONYM clause. Before storing the record, the 
user must initialize field-name-4 for the master record control 
field to 100 and the SYNONYM field-name-5 with 200. 
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LINKED-MASTER 


Linked-Master 


Function: To provide an extra chain field for each detail record of the 


Format: 


chain which points to the master record of the chain. 


[ {LINKED TO eee 


Notes 
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This optional clause can improve the operation of the system by 
providing a direct path from each detail to the master of the 
chain, thus eliminating the need for processing all of the 
intervening detail records serially. 


PROCEDURE DIVISION 


Execution of I-D-S procedural statements will STORE, RETRIEVE, MOVE TO 
WORKING-STORAGE, MODIFY and DELETE records. In addition, these 
statements will maintain the structure of the data file created by the 
defined chain relationships. 


The communication interface between I-D-S procedural statements and the 
balance of the COBOL Procedure Division is the working-storage areas 
which are established for each level 02 field defined in the field 
description entries of the I-D-S Section. All COBOL references to data 
from the I-D-S file are to these working-storage areas. 


The procedural statements of I-D-S may appear anywhere in the context of 
the COBOL Procedure Division. An I-D-S sentence must be preceded by 
ENTER IDS and terminated by a period. The sentence may contain any 
number of I-D-S statements. A paragraph name or section name may be 
assigned to an I-D-S sentence in a manner consistent with normal COBOL 
format. 


The following pages describe these various statement and verb formats. 


|-D-S Imperative Statements 


The imperative statements included in this section are provided as a 
part of the I-D-S language to extend the function of the basic STORE and 
RETRIEVE verbs. The DELETE, HEAD, MODIFY and MOVE statements apply only 
to the RETRIEVE verb; the DEBUG and GO statements may be used with 
either verb. OPEN must be used prior to any other I-D-S statements; 
CLOSE is self-explanatory. 


When these statements are used, they must occur in the order in which 
they are to be executed. They may be contained within the sentence 
beginning with the basic verb and ending with a period, or they may be 
used as separate sentences preceded by ENTER IDS. 


The specific formats of these statements and detailed discussions of the 
restrictions and limitations associated with each appear on _ the 
following pages. 
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Function: To transfer all modified I-D-S pages currently residing in 
the core buffers to the mass storage unit. 


Format OPTION 1: 


CLOSE 
Format OPTION 2: 
CLOSE WITH LOCK 


Notes: 


l. This statement must be executed before any COBOL STOP RUN 
statement. No automatic closing takes place. 


2. OPTION 2 will insure that the data base cannot be opened again 
during the execution of the run unit. 


3. See (Chapter 6, Accessing an I-D-S File) for Sample Deck set 
up. 
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Debug 


Function: 


Format: 


DEBUG 


To permit the selective dumping of pages, records, current 
data of program chain tables, or records of chain. The output 
produced will appear on the system execution report. 


BUFFER BUFFER 


DEBUG CURRENT RECORD ; ( RECORD... 


CCBLOC CCBLOC 


[; chain-name-2 CHAIN| 
and 
[; TRACE chain-name-3 CHAIN] 


Chain-name-2 and chain-name-3 must be names of chains as 
defined by level 98 entries in the IDS Section of the Data 
Division. 


The BUFFER option will result in an octal/BCD printout of the 
current page of the I-D-S data file. 


The RECORD option will result in an octal/BCD printout of the 
logical record last accessed by a successful STORE or RETRIEVE 
verb. 


The CCBLOC option will result in a printout of the following 
format: 


DIRECT REFERENCE Ref. Code in octal Ref. Code in BCD 
FIRST REFERENCE Ref. Code in octal Ref. Code in BCD 
LAST REFERENCE Ref. Code in octal Ref. Code in BCD 
RECORD TYPE Rec. Type in octal Rec. Type in BCD 
ERROR REFERENCE Error Code in BCD 


The chain-name-2 CHAIN clause will result in an octal/BCD 
printout of the reference codes of the named chain as follows: 


CHAIN TABLE HEAD Ref. Code in octal Ref. Code in BCD 
CHAIN TABLE PRIOR Ref. Code in octal Ref. Code in BCD 
CHAIN TABLE CURRENT Ref. Code in octal Ref. Code in BCD 
CHAIN TABLE NEXT Ref. Code in octal Ref. Code in BCD 


The TRACE chain-name-3 CHAIN clause will result in a 


side-by-side octal/BCD printout of all of the records contained 
within the specified chain. 
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DELETE 


Delete 


Function: 


Format: 


To delete the current record of the program and remove it 
from all chains in which it is a detail to make the record 
unavailable for processing and, optionally, to perform 
certain functions when specified detail record types are 
accessed during the deletion process. 


;peuume| CURRENT record-name~-1l RECORD [ow record-name-2 DETAIL 
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| MovE TO WORKING-STO RAGE| 


[HEAD chain-name-1l CHAIN [isan] 


[PERFORM procedure-name-1] 


[co 10 vroceaure-nane-] | 


OTHERWISE 


ON record-name-3 DETAIL... 
ELSE 


The record deleted by the DELETE statement is the record last 
retrieved (CURRENT) by the RETRIEVE verb. 


The deletion process deletes a record only when there are no 
dependent details in its chains. When details are present, the 
system first attempts to delete the dependent detail records. 
Since the hierarchical data structure of I-D-S may involve many 
levels of detail records, this statement should be used with 
care. 


The execution of a DELETE statement makes the record retrieved 
unavailable for any further processing, and an attempt to 
reference such a record results in an error condition. 


The conditional statement ON record-name-2 DETAIL is used only 
when it is necessary to interrupt the deletion process when a 
dependent detail of the type named by record-name-2 is 
encountered. When the statement is used, various imperative 
statements immediately following are executed prior to the 
actual deletion of the detail record. After the execution of 
these statements, the deletion process is continued unless’ one 
of the statements was a GO TO statement. In this case, control 
is not returned to the deletion process. When the record 
encountered is not the type named by record-name-2 it is 
compared with the type named by record-name-3. The reserved 
words OTHERWISE or ELSE separate the tests for different record 
types that may be encountered. A record encountered which does 
not match any of the specified record types is deleted in the 
normal manner. 


As a record is deleted it is not implicitly moved to working 
storage. 


The CURRENT record-name-1 RECORD option causes the record type 
of the record named to be compared with the record type in the 
current record definition. If they are not equal, an error code 
(R10) is returned to the user and no deletion takes place. 
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| 


Go 
Function: 
Format: 
7GO 
Notes: 
1. 
26 
3. 
4, 
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To depart from the normal in-line sequence of procedures. 


TO procedure-name-1 


Procedure-name-l may be any COBOL or I-D-S procedural paragraph 


in the Procedure Division. 


When this statement is encountered within the I-D-S 


all subsequent statements are bypassed and 
transferred to the procedure named. 


GO TO may be used with: 

If ERROR... 

Ef: record=name ss « 

ON record-name DETAIL... 
GO TO must be used with: 


RETRIEVE EACH AT END... 


sentence, 
control is 


Head 


Function: 


Format: 


HEAD 


To retrieve the master record of the chain specified and _ to 
move its data fields to working storage making it available 
for processing. 


;HEAD chain-name-1 CHAIN [;HEAD...| 


The chain-name-1l must be a chain defined by a level 98 entry. 


If no records of this named chain have been processed, or if 
the last record has been deleted, an error condition is noted. 


A data structure in I-D-S shorthand is shown below. 


CHAIN-A2 


CHAIN-Y 


CHAIN-Al 


CHAIN-X CHAIN-A 


In this case, assume that REC-AA was the record initially 
retrieved by the RETRIEVE verb. At this point, three chains 
include REC-AA, therefore, three possible master records may be 
referenced by the HEAD statement. Notice, however, that once 
HEAD has been used to reference CHAIN-A, the next higher level 
CHAIN-Al can be referenced. 
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4L1ito OLA LO ALL 


to working storage. 


ct 
3 


After execution of this statement, the master records retrieved 
are the CURRENT records of their respective types. They become 
the CURRENT records in each chain in which they are defined as 
details. However, they are not the CURRENT records in chains in 
which they are defined as master records. In those chains, the 
detail record which leads to the master is the CURRENT record. 


Note that the function of the statement is very similar to that 
of the RETRIEVE MASTER RECORD statement, except for the manner 
in which CURRENT of chain is maintained (Note 5). 


Example: 


Assume chains X, Y, A, and Al are not PRIOR processable or 
HEADED (linked to MASTER). The chain tables show REC-AA after 
it has been retrieved via chain-X and before execution of the 
HEAD CHAIN-A CHAIN statement. Note that there is a chain table 
for each chain in which REC-AA is a detail record. 


REC-AA REC-AA REC-AA 
Chain-X Chain-Y Chain-A 


After execution of the HEAD CHAIN-A CHAIN statement, the chain 
tables appear as shown below. Note that the chain tables’ for 
chains X and Y remain unchanged. The only change to the chain-A 
table is that the chain table's MASTER position has’ been 
updated with the reference code of the master record. Thus, if 
a RETRIEVE NEXT or PRIOR of chain X, Y, or A is issued, REC-AA 
is the CURRENT record from which I-D-S moves to the NEXT or 
PRIOR data record of chain X, Y, or A. 


REC-AA REC-AA 
Chain-Y Chain-A 


CURRENT CURRENT REC-AA 


After the HEAD CHAIN-A CHAIN statement is executed, the chain 
Al table is updated as shown below. 


REC-AB 
Chain-Al 


NEAT REC-AB+1 
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MODIFY 


Modify 


Function: To modify the contents of all or selected fields of 


current record and/or to relink any chain which may 
affected by the modification of a control field. 


Format Option 1: 


;MODIFY field-name-1 [field-name-2. : -| 


Format Option 2: 


;MODIFY CURRENT record-name | fie1d-nane-1 [fiela-nane-2..] | 


Notes Option 1: 
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1. The fields to be modified must be level 02 entries. 


the 
be 


The 


contents of working storage are moved to the equivalent field 


of the current record which is in a data page buffer. 


2. Field-name-1, field-name-2, may be control fields for 


the 


record. Modifying these fields can result in the record being 
logically repositioned within the I-D-S environment. Depending 


on the type of control field involved, I-D-S will take 
following actions: 


Modifying a sort key field. The record is relinked into 


the 


its 


chain according to the new value of the sort field. The sort 


field in the record is then modified. 


Modifying a randomize field. The record is relinked into 


a 


new CALC chain according to the new value of the randomize 


field. The randomize field in the record is then modified 


In relinking a record in a chain, I-D-S uses all the control 
fields in working storage defined in the record for that chain. 
Therefore, the user must not only initialize the control field 
to be modified, but the others as well. Depending upon _ the 
control fields involved, I-D-S will take the following action: 


Modifying a match-key field named to uniquely identify a 
Master record. The record is relinked to the new master 
uniquely identified by the new value in the match-key field. 
Since the field is not in the detail record, no actual field 
modify occurs. 


Modifying field-name-5 of a MATCH-KEY IS field-name-5 
SYNONYM field-name-4 clause. The record is relinked to a new 
master record along the chain for which the clause was 
named. The new master was uniquely identified by the new 
value in field-name-5. In this case, field-name-5 may or may 
not be a field in the record on disc. If it is, it is 
modified. If it is not, no further action is taken. 


In no case is a record ever physically moved from one page _ to 
another in the I-D-S environment. Therefore, an attempt to 
modify the prime retrieval field of a primary record results in 
an error condition. Such a modify could result in a record 
needing to be moved from one page to another. 


If the successful execution of the MODIFY statement would 
create DUPLICATE records in chains where they are not allowed, 
the modification will not be executed and an error occurs. 


Notes Option 2: 


Teg 


2. 


Notes for option 1 also apply to option 2. 


The record type of the record named is compared with the record 
type in the current record definition. If they are not equal, 
an Rll error code is returned to the user and no modification 
takes place. 


If the field name option is not specified, all fields in the 
record are modified. 


vel 


Function: To move all or selected fields of the current record (record 


BI 
last processed) to working storage, or to move the contents 
of a chain table to working storage. 


Format Option 1: 


; MOVE TO WORKING-STORAGE |fie1a-nane~1 [/fie1a-name-2.._]] 


Format Option 2: 


CHAIN TABLE 

MASTER 
MOVE chain-name-1 PRIOR TO field-name-3 

CURRENT 

NEXT 


1. The implied source of an option 1 MOVE is the current record 
(last RETRIEVE or STORE). 


2. Option 1 must be used before any reference can be made to the 
data in the record. 


3. When the statement includes the list of fields identified by 
field-name-1, field-name-2, etc., only those fields are moved 
to working storage. Otherwise, all fields are moved. 


4. When CHAIN TABLE is used in option 2, the master, prior, 
current, and next chain fields of the named chain are moved to 
four contiguous subfields specified by field-name-3. 
Field-name-3 should be equivalent to the form: 


Ol field-name-3 


02 Master-chain PICTURE 9(6) COMP-1 
02 Prior-chain PICTURE 9(6) COMP-1 
02 Current-chain PICTURE 9(6) COMP-1 
02 Next-chain PICTURE 9(6) COMP-1 


5. When MASTER, PRIOR, CURRENT, or NEXT is used in option 2, the 
specified chain-table entry is moved to field-name-3. 
Field-name-3 should be equivalent to the form: 


02 field-name-3 PICTURE 9(6) COMP-1 
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OPEN 


Open 
Function: To initialize the processing of an I-D-S data file. 
Format: 
RETRIEVAL 
OPEN FOR 
UPDATE 


[worn AUTHORITY-KEY integer-1| 


Notes: 


dy 


2e 


This statement must be executed before any other I-D-S verb is 
executed. 


When the I-D-S file is opened for RETRIEVAL, the STORE, DELETE, 
and MODIFY statements of I-D-S are not operative. An attempt to 
use these statements under these conditions results in an error 
condition during program execution. Logically deleted records 
will not be physically deleted. If FOR RETRIEVAL or UPDATE is 
not specified, UPDATE is assumed by I-D-S. 


The AUTHORITY-KEY clause enables access to various record types 
which may be protected by a defined AUTHORITY code. (See Data 
Division, Record Description.) The value of integer-1l may not 
exceed 4095(10). 


When this clause is used, each reference to a record of the 
I-D-S file involves a match of the AUTHORITY value defined for 
the record with the AUTHORITY-KEY supplied. When a valid match 
occurs, the I-D-S verb is allowed to function normally. 
Otherwise, the function of the verb is aborted and an error 
condition is returned to the user's program. 


The exact details of the matching process may be modified with 
each installation to suit individual requirements. 
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RETRIEVE 


Retrieve 


Function: 


To retrieve a record and make it available for processin 


Format Option 1: 


record-name-1 


RECORD 
CURRENT record-name-1l 
NEXT 
RETRIEVE PRIOR RECORD OF chain-name-2 CHAIN 
MASTER 


EACH AT END GO TO procedure~name-1 


DIRECT 


Format Option 2: 


RETRIEVE NEAT RECORD OF CALC CHAIN 


Notes: 


Ls 


pa 
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Record-name-1l must be the name of the record level O01 entry 
defined in the IDS Section of the Data Division. 


Chain-name-2 must be the name of a chain defined by a level 98 
entry in the IDS Section of the Data Division. 


Regardless of the option used, this verb causes the record 
referenced to be retrieved and made available in the memory 
buffer. This action may or may not require that a page be 
transmitted from the mass storage device, since the record may 
already be in memory. No other action, such as moving the 
record to working storage takes place. 


The reference code of the record retrieved is accessible in the 
communication cell named DIRECT-REFERENCE after the retrieval 
process is completed. 


Of the seven options available with the RETRIEVE verb, two may 
be classified as absolute. This means that only one record will 
satisfy the retrieval specification when one of the following 
options is used. 


RETRIEVE record-name-1l RECORD 


The record retrieval action is predicated upon the RETRIEVAL 
VIA clause defined in the level 01 entry in the IDS Section 
of the Data Division. The record retrieved depends on _ the 
values contained in the control fields of working storage 
which uniquely identify the record. 


If the record is retrieved VIA field-name FIELD, the 
contents of the named field (the reference code of the 
record to be retrieved) are used. 


If the record is retrieved VIA CALC CHAIN, the contents of 
the RANDOMIZE fields are used. 


If the record is retrieved VIA chain-name CHAIN, the 
contents of its MATCH-KEY and ASCENDING and DESCENDING sort 
key fields are used. 


RETRIEVE DIRECT 


The record to be retrieved is identified by the reference 
code stored in a communication cell named DIRECT-REFERENCE. 
The user is responsible for initializing the communication 
cell prior to the execution of this command. 


The other five options may be classified as context dependent, 
since the actual record retrieved is dependent upon previous 
record processing. 


RETRIEVE CURRENT record-name-1l RECORD 


The record retrieved will be the current record of 
record-name-1l specified. If no record of this name has’ been 
processed, or if the last record processed has been deleted, 
an error condition is noted. 


NEXT 
RETRIEVE PRIOR RECORD OF chain-name-2 CHAIN 
MASTER 


Record retrieval depends upon the -current record of the 
chain named. If NEXT or PRIOR is used, the appropriate 
record is retrieved regardless of the record type. If MASTER 
is specified, the master record of the chain named i1s 
retrieved. If no records of the chain have been processed, 
or if the last record has been deleted, such that no records 
exist in the chain, an error condition is noted. 
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This option facilitates a reference code ascending sequence 
serial search of the I-D-S data file. This statement will 
retrieve the first record, in ascending reference code 
sequence, that has a reference code value equal to or 
greater than the reference code value stored in the 
FIRST-REFERENCE communication cell named. However, if the 
reference code value of the retrieved record is equal to or 
greater than the value stored in the communication cell 
named LAST- REFERENCE, control is transferred to 
procedure-name-1l. 


When a record is retrieved, the sum of its reference code 
value plus one will be stored in FIRST-REFERENCE, which 
initializes it for a subsequent execution of RETRIEVE EACH. 


An option 2 entry record retrieval depends on the CURRENT 
record within the chain specified. If NEXT is used, the 
appropriate record is retrieved regardless of the record type. 
These record specifiers can be used only if some record has 
already been processed which is a member of the CALC chain. 


If a record cannot be retrieved according to the specifications 
of the retrieval statement, an error condition is noted. 


The record retrieved is recorded as the CURRENT record of its 
type and the CURRENT record in each chain in which it is a 
Master or detail. 


Example: 


The following statements will retrieve the master and detail 
records of the calc chain. The master of the calc chain is’ the 
Page Header record. 


COMPUTE DIRECT-REFERENCE = page-number * 64. 
ENTER IDS. 
RETRIEVE DIRECT (master of calc chain) 
IF ERROR ... 
RETRIEVE NEXT of CALC chain. 
IF RECORD-TYPE = 1000 GO TO end-chain. 


RETURN 


Return 


Function: To relink the selected records of a specific chain into the 
order as returned by the sort. To return the data fields of. 
the I-D-S record to Working-Storage. 


Format: 
RETURN chain-name-l CHAIN 


AT END GO TO procedure-name~1 


Notes: 


1. RETURN can only be used within an OUTPUT PROCEDURE associated 
with a SORT statement for sort-file-l. Any other use of a 
RETURN statement will lead to unpredictable results at object 
execution time. 


2. The execution of the RETURN statement causes the next record in 
sorted order (according to the keys listed in the SORT 
statement) to control the retrieval of the corresponding I-D-S 
record in chain-name-1l. The I-D-S record is then relinked into 
its ordered position in chain-name-1l as though the CHAIN-ORDER 
is described as AFTER. The chain will appear as: MASTER, lst 
record from sort, 2nd record from sort, etc. 


3. The data fields of the sorted selected I-D-S record will be 
moved to the I-D-S working-storage fields. The record returned 
from sort will not be available for processing in the record 
area associated with sort-file-l. 


4. The I-D-S record will be current of program, current of type, 


and current of chain-name-l. The record will not be current in 
any other chains in which it participates. 
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Example: 


FILE SECTION. 
SD ST-FILE. 


DATA RECORD IS SORTR. 


O01 SORTR. 
02 PRIOR-REF PIC 9(6) COMP-1. 
02 CUR-REF PIC: 94.6) COMP=1.. 
02 KEY-1 PIC 99.99% 
02 KEY-2 PIC 999999... 


SORT-CALL SECTION. 

SORT ST-FILE ON ASCENDING KEY KEY-1, KEY-2. 
INPUT PROCEDURE IS PHASE-1. 
OUTPUT PROCEDURE IS PHASE-2. 


ENTER IDS. 
RETURN TST-CHAIN CHAIN 
AT END GO TO PHASE-2xX. 


SORT 


Sort 


Function: To sort the selected records of a specific chain into the 
specified order. 


Formats: 
ASCENDING 
SORT sort-file-1l ON KEY field-name-1 
DESCENDING 
ASCENDING 
[,field-name- -2. -+] |? . KEY ... 
DESCENDING 


INPUT PROCEDURE IS section-name-1 [ THRU section-name-2 | 
USING file-name-2 


GIVING chain-name-l CHAIN 


Notes: 


1 The COBOL SORT is used to accomplish the sort of the selected 
I-D=S: records. 


2.. All rules of COBOL SORT must be observed. The I-D-S exceptions 
are discussed in the following notes. 


3. The sort-file-1l Record Description must be equivalent to the 
form: 


O01 SORT-IDS-REC. 


02 Prior-ref PIC 9(6) COMP-l. 
02 Current-ref PIC 9(6) COMP-1. 
02 Sort-key-1l. 


The prior-ref field must be the first entry 
in the sort record. 


The current-ref field must be the second 
entry in the sort record. 
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The INPUT PROCEDURE must: 
RETRIEVE the I-D-S records from the specific chain. 


MOVE the PRIOR reference or zero to the prior-ref 
field. 


MOVE the CURRENT reference to the current-ref 
field. 


MOVE the data fields into the sort KEYS. (Other 
data may be placed in the sort record; however, 
I-D-S will not make use of the data.) 


RELEASE the sort record. 


The GIVING chain-name-1l CHAIN clause means that all = sorted 
records in sort-file-1l are used during the relink process’ to 
control the retrieval of the corresponding I-D-S record in 
chain-name-l. The I-D-S records are relinked into chain-name-1 
as though the CHAIN-ORDER is described as AFTER. The chain will 
appear as MASTER, lst record from sort, 2nd record from. sort, 
etc. 


If the prior-ref field is set to zero the execution of the 
relink function may be inefficient. 


The chain may contain multiple record types. If only one type 
of record is selected for sorting, the selected sorted records 
will appear in order following the master record. The remaining 
record types will retain their relative order in the chain 
after all of the selected sorted records. 


The USING file-name-2 option requires file-name-2 to be of the 
described format. The records must be equivalent to records 
which would result by using the INPUT PROCEDURE option. All 
records must be present in the selected chain. 


At the completion of SORT the last record in the sort sequence 
will be current of program, current of type, current of 
chain-name-1l, and its data fields will be moved to the I-D-S 
working-storage fields. It will not be current in any other 
chains in which it participates. 


10. Example: 


FILE SECTION. 
SD ST-FILE. 
DATA RECORD IS SORTR. 


O01 SORTR. 
02 PRIOR-REF PIC 9(6) COMP-1 
02 CUR-REF PIC 9(6) COMP-1. 
02 KEY-1l PIC 9999. 
02. KEY-2 PIC 999999, 


SORT-CALL SECTION. 

ENTER IDS. 

SORT ST-FILE ON ASCENDING KEY KEY-1l, KEY~-2 
INPUT PROCEDURE IS PHASE-1 
GIVING TST-CHAIN CHAIN. 


ENTER IDS. 

RETRIEVE MSTR. 
LOOPA. 
ENTER IDS. 

RETRIEVE NEXT TST-CHAIN CHAIN. 
ENTER IDS. 

IF MSTR RECORD GO TO PILAST. 
ENTER IDS. 

IF DET-2 RECORD GO TO LOOPA. 
ENTER IDS. 

MOVE. 

MOVE FIELDA1 TO KEY-2. 

MOVE FIELDB1 TO KEY-1l1. 
ENTER IDS. 

MOVE TST-CHAIN PRIOR TO PRIOR-REF. 
ENTER IDS. 

MOVE TST-CHAIN CURRENT TO CUR-REF. 


Function: To place a record into the I-D-S data file, to establish any 
chain fields which have been defined, and to make the record 
available for processing. 

Format: 

STORE record-name-1 RECORD 

Notes: 

1. Record-name-1l must be defined as a level 01 entry in the IDS 
Section of the Data Division. 

2. When this verb is used, the following is assumed: 

Working-Storage for this record has been initialized with the 
data contents for the record. 
Any other control fields required to provide unique 
identification of the master records of the defined chains 
which include record-name-1l have been initialized in their 
respective working-storage areas. 

3. The record is placed into the file as defined by the PLACE 
NEAR or RETRIEVAL VIA clauses of the Record Description entry. 

4. The reference code assigned to the record is left in the 
communication cell DIRECT-REFERENCE after the storage process 
is complete. 

5. The record is recorded as the CURRENT record of its type and 
the CURRENT record in each chain in which it is a master or 
detail. 

6. If the storage process creates a duplicate record in violation 
to any DUPLICATES NOT ALLOWED clause, or if the unique or 
range master selected cannot be retrieved, the storage process 
is terminated with all linkages restored as before and an 
error condition is noted. 

7. When a primary record is stored, its reference code is moved 
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to the working-storage field 


field-name FIELD clause. 


named by the RETRIEVAL VIA 


10. 


Placement of records by I-D-S is influenced by the RETRIEVAL 
VIA, PAGE-RANGE, PLACE NEAR, and INTERVAL Clauses. The 
following summaries show priority of record storage criteria. 
If PAGE-RANGE is specified and the resultant page number falls 
outside the page range, the page number is always scaled down 
to fall within the page range. 


Primary records are stored as follows: 


a. If INTERVAL is specified and the current page is not zero, 
on the page calculated by INTERVAL plus page of current 
record of the type. 


bs. Ef not as a, above, on the page specified in 
DIRECT-REFERENCE, if it is not zero. 


c. If not as a or b, above, and if PLACE NEAR is’ specified 
and the CHAIN-ORDER is SORTED, SORTED WITHIN TYPE, FIRST, 
or LAST, on the page of the master record of the chain 
named in the PLACE clause. 


d. if not a,b, or ¢c, above, on the page. of the current 
record of the chain-name. 


e. If none of the above, on a page most convenient to I-D-S. 


Secondary records are stored as follows: 


a. If INTERVAL is specified and the current page is not zero, 
on the page calculated by INTERVAL plus page of current 
record of the type. 


b. If not as a, above, and if PLACE NEAR is specified and the 
CHAIN-ORDER is SORTED, SORTED WITHIN TYPE, FIRST, or LAST, 
on the page of the master record of the chain named in the 
PLACE clause. 


c. If not as a or b, above, on the page of the current record 
of the chain-name. 


d. If not as a, b, or c, above, and if the CHAIN-ORDER of the 
RETRIEVAL VIA chain is SORTED, SORTED WITHIN TYPE, FIRST 
or LAST, on the page of the master record of the chain 
named in the RETRIEVAL VIA chain-name CHAIN clause. 


e. If none of the above, on the PAGE of the current record of 
the RETRIEVAL VIA chain. 
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Calculated records are stored as follows: 


On the page calculated by randomizing the contents of fields 
named in the RANDOMIZE ON field-name clause. 


Record storage is subject to the following Overflow rule: 


If space is not available in the specified page, the record is 
placed on the first page in the direction of ascending page 
numbers in which there is available space as determined by 
search of the inventory records. Pages which do not have 
inventory records are bypassed until all pages controlled by 
inventory are searched. If space is not found by the inventory 
search, then all pages not controlled by inventory are 
searched. The boundaries specified by the use of a PAGE-RANGE 
clause are observed in this process. 


I-D-S Conditional Statements 


The conditional statements of I-D-S are logical extension of the basic 
STORE and RETRIEVE verbs. Generally, they involve the key word IF, 
followed by the condition to be tested, followed by the imperative 
statements to be performed. 


I-D-S conditional statements are of two general forms; either form may 
appear in the string of statements following a basic verb. 


The specific formats of these statements and a discussion of their 
restrictions and limitations follow. 


Following the explanation of the IF-clause formats, PERFORM and_ USE, 
which also are conditional, are discussed. 
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Function: To conditionally transfer control to an alternate procedure. 


Format Option 1: 


;IF record-name-1l RECORD statement-1 [sstatement-2... ] 


OTHERWISE 


statement-3 [istatement-4...| 
ELSE 


Format Option 2: 


OTHERWISE 


7; IF ERROR statement-1 statement-2 jsatonent-3. J] 
ELSE 


Notes Option 1: 


1. The IF record-name-1 RECORD clause is specifically designed to 
support those retrieval statements where the type of record to 
be retrieved is unknown until after the retrieval is complete. 
Specifically, the IF record-name clause may oniy be used in 
conjunction with RETRIEVE DIRECT, RETRIEVE EACH, RETRIEVE NEXT 
and RETRIEVE PRIOR. 


2. Statement-1l, 2, 3, 4 may be any one of the following 
statements: MOVE TO WORKING-STORAGE, MODIFY, DELETE, HEAD, 
PERFORM, or GO TO. In addition, statement-3 may be another IF 
record-name clause. This allows multiple test-branch logic 
based on record type. 


3. The record type field in the record just retrieved is compared 
with the record type named by record-name-l. If the record 
types are the same, statement-1l and subsequent statement-2's 
are executed in sequence and then control is transferred to the 
next sentence in the program. A GO TO procedure-name statement 
may be used as either statement-l or statement-2 to cause 
transfer to some alternate sentence in the program. 


If the record retrieved is not the type specified, then control 
is transferred around statement-1l and subsequent statement-2's 
to statement-3, or to the next sentence in the absence of an 
OTHERWISE or ELSE phrase. 
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Notes Option 2: 


1. 


2. 


This form may only follow a STORE or RETRIEVE verb or a MODIFY, 
DELETE, HEAD, or MOVE imperative statement. 


Statement-l may only be a GO TO or a PERFORM imperative. 
Statement-2, statement-3, etc., may be any imperative statement 
appropriate to the basic verb, or a conditional of form 1, if 
appropriate. 


The IF ERROR clause tests the occurrence of any logical error 
as a result of the last I-D-S statement. The specific errors 
which may occur are a function of the statement executed. The 
user program may determine the type of error by referring to 
the ERROR-REFERENCE communication cell. 


If an error occurs because of hardware, data description, or 
improper use of an I-D-S function, the program is brought to an 
orderly halt, the file closed and the program aborted and 
memory dumped, if requested, with the appropriate error 
message. 


If a data-dependent error is detected by I-D-S, an error _ code 
will be stored in ERROR-REFERENCE and control will pass to the 
IF ERROR STATEMENT. 


The execution of a subsequent I-D-S statement will reset the 
error code stored in ERROR-REFERENCE,. 
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PERFORM 


Perform 


Function: 


Format: 


To depart from the normal in-line sequence of procedures in 
order to execute a specific procedure and then return to’ the 
normal sequence. 


;PERFORM procedure-name-1 [THRU procedure-name- 2] 


Notes: 


1. 


2. 
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Procedure-name-1l may be any COBOL procedural paragraph in the 
Procedure Division. 


For other details concerning the PERFORM statement see _ the 
GE-600 Line COBOL Reference Manual, CPB-1652. Only the simple 
PERFORM (option 1) 1s recognized within an I-D-S sentence. 
PERFORM may be used with: 

IF ERROR... 

IF record-name... 

ON record-name DETAIL... 
If PERFORM is used with ON record-name DETAIL, the procedure 


performed may not contain any I-D-S functions. The THRU 
procedure-name-2 may not be used. 


Use 


Function: 


Formats: 


To specify procedures to be executed for I-D-S error 
conditions which are in addition to the standard procedures 
supplied by I-D-S. 


USE procedure-name-1 [ cHRU procedure-name-2] 


[wx TH TRACE | 


error-code-1l E error-code-2...]. 


ANY ABORT 


The USE clause may appear anywhere within the Procedure 
Division. 


The procedures specified will be executed by COBOL PERFORM. 
The procedures may not contain I-D-S statements. The activity 


will be aborted if any I-D-S statements are executed while the 
USE procedures are being performed. 


The I-D-S error codes used as error-code-l and error-code-2, 
etc., are defined in Appendix B. 


This clause may be used as many times as necessary to define 
appropriate procedures for specified error conditions. 


Not all error codes need be specified. Selected error codes 
May appear in only one USE statement. 


The ANY ABORT option may be used only once, and no other option 
may be used with it. 


When a trace is made, a plain language statement defining the 
error and, when possible, the records or chains involved 
appears on the execution report. (See Appendix B.) All fatal 
I-D-S error conditions are traced prior to aborting. 
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The trace prints (1) the name of the subroutine called, (2) the 
name of the subroutine that called it, and (3) the alter number 
from which (1) was called. The trace continues to the point at 
ich the main program is the calling routine. An example is 


IDS ERROR 
RETRIEVE NEXT IN CHAIN NO CURRENT EXISTS MT0010-DT0020 
TRACE OF ABOVE ERROR FOLLOWS ----- 
QUIT CALLED BY .QFWD AT ALTER 000149 
:QFWD CALLED BY .QCHN AT ALTER 000131 
:QCHN CALLED BY C.LDIN AT ALTER 000054 
TRACE END 


Example: 


PROCEDURE DIVISION. 
START-PARA. 


ENTER IDS. 
USE ERROR-PARA-1 ON DOI. 


ERROR-PARA-1. 
DISPLAY "DUPLICATE RECORD FOUND". 


ENTER IDS. 
USE ABORT-PARA-1 THRU ABORT~-END 
ON” 15,315 


ABORT-PARA-1. 
DISPLAY "RECOVERY REQUIRED - DELETE REPORTS". 


ABORT-END. 
CLOSE IN=-FILE, OUT-FILE. 


4. Translator Processing 


The I-D-S Translator is a system pEogram which is called from system 
storage by the $ IDS control card. 


At the time of allocation for the I-D-S Translator, sufficient resources 
(memory and peripheral devices) are allocated to provide for COBOL. When 
the Translator has completed its function, it passes control to COBOL 
using the GECOS entry point GECALL. Figure 16 is a flow diagram of the 
compilation process of an I-D-S program. 


PAGE EJECT AND COMDK LABELING 


Page Eject in the Listing 


The user can indicate that he desires a page eject in the listing by 
including a *EJECT card at the appropriate point. A *EJECT (starting in 
column 7) is treated as comments by the translator and causes a page 
eject in the listing before the printing of the *EJECT card. The *EJECT 
is passed to COBOL and causes a subsequent print and page eject in the 
COBOL portion of the listing. 


COMDK Labeling 


The translator uses the contents of columns 73-80 of the first source 
card encountered and includes it in columns 73-80 of any compressed deck 
created by the translator. Labeling and sequencing conform to the 
Specifications of IOEDIT (see GE-600 Line File and Record Control, 
CPB-1003). —_ 
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9-2 


I-D-S COBOL 
Source 
Language 


Source 
Listing 


I-D-S 
Translator 


COBOL 
Library COBOL Listing 
Compiler and 
Exception 
Report 
I 
' 
| 
i) 
I 
' 
I 
t 
Assembly 
GMAP Listing 
| 
‘ 
1 
Object 
Code | 
t 
1 
J 
Load 
GELOAD Map 


Subroutine ---- Indirect Processing 


Library 


(Includes I-D-S Subroutines ) 


Figure 16. I-D-S Compilation and Execution Process 


$ IDS CONTROL CARD DESCRIPTION 


The $ IDS control card is used to call the I-D-S Translator. The operand 
field is used to specify the system options. 


Example: 
il 8 16 
! t 
$ IIDS Options 
I I 
Options available with I-D-S/COBOL are listed below; standard options 


are underlined. 


LSTIN 


NLSTIN 


LS TOU 


NLS TOU 
NDECK 


DECK 


COMDK 


NCOMDK 


DUMP 


NDUMP 


ON6 


COPY 
NCOPY 


SYMTAB 


An I-D-S listing and COBOL input listing will be prepared 


No I-D-S listing of input will be prepared. Option is reset 
to LSTIN prior to calling COBOL 


A listing of assembled object program output will be 
prepared by GMAP 


No listing of output will be prepared 
No binary object program deck will be prepared 


A binary object program deck will be prepared as output by 
GMAP 


A compressed deck of the source program will be prepared 
during translation 


No compressed deck of the source program will be prepared 


Slave core dump will be produced if activity terminates 
abnormally 


Only a panel dump of program registers will be produced if 
activity terminates abnormally 


COBOL will generate a REF ON so that GMAP will build a 
Symbol Reference Table 


A COBOL copy prepass is required (see rule 4) 
No COBOL copy prepass is required 


GMAP will prepare a listing of the Symbol Reference Table 
(if one has been built) even though NLSTOU is also specified 
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Rules: 
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The $ IDS control card must precede the source cards of each 
program or subprogram to be processed and must precede = any 
other control card associated with that activity. 


The options can be listed in any order in the operand field. 


If no options are specified in the operand field, GECOS uses 
the standard options (underlined). 


All source decks which use the COPY clause or the RENAMING file 
option (see GE-600 Line COBOL, CPB-1652) must use the COPY 
option. 


SAMPLE OUTPUT PRODUCED BY THE I-D-S TRANSLATOR 


54975 


02 y9- 


PAGE 1 
:SDLe1l2 CHGO2 
26-68 10,291 GE690 INTEGRATED STORE TRANSLATOR 


IDS ALTER NOS, 


vg00d1 
Jag002 
90003 
y0004 
vOu05 
godu06 
30007 
J0008 
JQ009 
uogdgio 
GO0A4 
300142 
y0013 
J0014 
300415 
J0016 
30017 
300148 
Joos 
Jou20 
J0021 
60022 
y0023 
30024 
30025 
JOU26 
vou? 


30028 
JOU29 
30030 
JQO31 
yO0032 
J0035 
30034 
20035 
JOU36 
J0U37 


000030 


000050 
000060 
900070 
000080 
00u090 
000100 
900110 
000130 
090150 


96u39Q 


095490 
0900410 
060420 


IDENTIFICATION LIVISION . 
PROGRAM-ID, 5]0S . 
AUTHOR, VANVERBUR , 
DATE-WRITTE™ , ‘ 
ENVIRONMENT DIVISION, 
CONF IGURATIUN SECTIUN, 
SOURCE“COMPUTER, Gko-odd, 
OBYECT*COMPUTER, GE#655, 
INPUT-OUTPUT SECTION, 
FILE*=CONTROL. 
SELECT 105 TEST*FILE ASSIGN TO TF, 
]-Q-CONTROL: 
DATA DIVISION, 
FILE SECTION, 
WORKING=STORAGE SECTIUW , 
77 PAGER PICTURE 999999 COMPUTATIONAL -~1 
77 = COUNT PICTURE 9(6) CUMPUTATIONAL ol , 
77 LIMIT*I]S PICTURE 9Y999S9 COMPUTATYONAL@4 2 
77 CTLR PICTURE $(6) , 
O01 LOGRER , 
CS LIMITER PICTURE 9(6) , 
65 PILEER -SIZE 74.4 
01 GONOGO , 
C5 TSTIT PICTURE XXXXXX , 
88 UGUON VALUE "GO . 
05 FILLER SIZE 74 , 
IDS SECTION. 
C1 CCsSLOXK , 
02 DIRECTRWREFERENCE SIZE 15 & USaGt [JS COMPUTATIUNAL#=1 
SYNCHRONIZED RIGHT, 
J2 FIRSTHREFERENCE SiZte 1S 6&8 USAGE 1S COMFUTATIONAL=1 
SYNCHROWVIZEU KIGHT, 
O2 LAST*REFERENCe SIZt 15 8 USAGE 15 COMPUTATIOVAL #4 
SYNCRRONIZED RJuntl, 
G2 RECOKD-TYPE SiZE IS 4 USAGE IS UnmMPUTATIONAL <4 
SYNCHRONIZED RIGHT, 
G2 ReCeFILE SIZE 1S 6 CLASS IS ALPHANUMERIC 
VALUE Id wWOOCCTR™, 
C2 ERRONMREFERENCE SIZE 1S 3 CLASS [S ALPHANUMERIC 
SYNCHRONT ZF Rion, 
MD) TEST@FILE 
PAGk CUNTAINS 1920 CHARACTERS 
FILE CONTAINS 480 PAucsS, 
C1 PRIMe-Ek TYPE 555 RETRIEVAL VIA PRime FIELD , 
C2 PRIME) | 60PJCTURE 999I999G9 , 
92 ABCUEF PICTURE 999 , 
C1 THre-MASTER 
TYPe JS 99F 
RETRIEVAL VIA CALC CHAIN 
PAGEPRANGFE 121 TU lel 


* 
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54975 02 


J00S8 
Q003y 
39040 
JON41 
vo04e 


30043 
J0044 


JO045 
J0046 
30047 
JOU48 
J0049 
90050 
jJO051 
yo052 
J0058 
Jv0054 
30055 
90056 
J0057 
J0058 
J0059 
J0060 
JO061 
J0062 
30063 
J0064 
JOUADS 
30066 
JOUS7 
s0068 
JOV69 
30070 
JOO71 
JO072 
30073 
JO074 
J0075 
J0076 
30077 
JOU7& 
jJ0U79 
yO0UBD 
JOURL 
I0082 
i0VKS 
JOU&4 
J0U8 
JO086 
J0087 
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NOS, 
www § 


C2 
02 
98 


9R 


98 
C1 


PAGE 2 
rSDb*12 CHGO2 


09-26-68 10.2914 GF600 INTEGRATED STORE TRANSLATUR 


MASTER@=FIJELD PICTURE 999999 , 
MASTER@LATA PICTURE xX(12) , 
CALC CHAIN DETAIL 
RaANUOMIZE ON MaSTERePlELD , 
THE-CHAIN CHAIN MASTER CHAIN©ORDER 
IS SURTED WITHIN TYPE, 
PAGE*TASLE CHAIN MASTER CHAIN@-ORNER IS SORTED , 
QuAp. 
TyPe JIS CO1 
RETRIEVAL VIA CALC CHAIN 


QUADL=NUM PICTURE 999999 , 
GUADIL-FIELD SIZt 24 , 

CALC CHAIN DETAIL 

RANDOMIZE ON GUALL=NUM , 

THE-CHAIN CHAIN DETAIL SELECT CURRENT 
ASCENDING KEY IS GUADL}NUM, 

QuALe 

TYPE IS 292 

RETRIEVAL VIA CALC CHAIN 


QUAD2=NUH PICTURE 999999 , 
GUAD2@=FIELO SIZe 24 . 

CALC CHAIN DETAIL 

RANDUMIZE ON QUAUZeNUM 

THE@CHAIN CHAIN UETAIL SELECT CURRENT 
ASCENDIVG KEY JTS WuADe=NUM, 

Quans 

TYPE [S$ 798 

RETRIEVAL VIA CALC CHAIN 


GUADSeNUM PICTURE 999999 , 
QUADS@FIELD SIZe 24 , 

CALC CHAIN DETAIL 

RANDOMIZE ON QUADS@-NUM , 

THEWCHAIN Creal DETAIL SELECT CURRENT 
ASCENDING KEY [5S WUALS=NUM, 

Quays 

TyPe JIS 794 

RETRIEVAL VIA CALC CHAIN 


QUA)S=eNUMH FICTURE 999999 , 
QUAD4=FIELD SIZr 24 , 

CALC CHAIN DETAIL 

RANDOMIZE ON WLAL4GaNUM , 

THE@CHAIN CHAIN DETAIL SELECT CURRENT 
ASCENDING KEY [5S QUAD4=NUM, 

PAGE@=LIST 

TYPE. TS 252 


DECK SETUPS 


The following deck setups show the most common uses of the I-D-S 
Translator: (1) translate and compile; and (2) translate, compile, and 
execute. 


Translate and Compile 


- 8 16 


source Program 


With the above deck setup, the I-D-S Translator is called, and the 
source program is translated into a form acceptable to COBOL. COBOL is 
called to compile the translated program. Since no options are specified 
in the $ IDS card, standard I-D-S/COBOL options are used. 


oT 


Translate, Compile, and Execute 


1 8 
$ IT DENT 
$ lpROGRAM 
$ IpATA 
i 
f..< 
S eke" 
S DATA 
I: 
| e 
$ EDS 
.s 
—_ 
$ lEXECUTE 
$ "file" 
| 
$ para 
We % 
lie we 
$ |ENDJOB 
**kEOF | 


16 
aE 


Directives 


= ,Options 


Directives 
Options 
Source program 


Options 

fc,Options 
fc is the same file code 
specified in the File Code 
Section of the user's program 

-Q 


Directives 


| 
lo 
‘oe 
\ 
| 
| 
| 
ly 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


The deck setup above assumes a temporary I-D-S data base where 
can reference any mass storage device such as PRMFL, DISC, MASS, 
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"file" 
etc. 


OBJECT PROGRAM EXECUTION 


The I-D-S object program consists of a modular set of subroutines which 
interpretively execute the L=-D=5 commands, GELOAD loads’ these 
subroutines as a result of the calls generated by the compilation 
process. 


Because of the interpretive mode of execution, the complete data 
description of the I-D-S data file, also generated by the Translator, 
must be available to these routines. 


Example: 


Deck setup for execution using an I-D-S permanent data file. 


af 8 16 


$ IDENT ltpS00 ,DATABASEMGR, 
$ {USERID |I DSF OURYQUAD$DATABASE 
$ eas 
— | 
b> I 
) os | 
$ |DKEND | 
$ |EXECUTE 
$ LIMITS 
S IPRMFL |Al ,R/W, R, LDSFOURYQUAD/QUADOL 
$ [PRMFL A2,R/W,R, LDSFOURYQUAD /QUAD02 
$ |PRMFL 1A3 ,R/W,R, IDSFOURYQUAD /QUADO 3 
S PRMFL |A4,R/W,R, IDSFOURYQUAD/QUADO 4 
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5. |-D-S Data File Structure Descriptions 


DEFINITION STRUCTURE 


The Definition Structure required by I-D-S is a list structure which 
reflects the description of the records of the I-D-S data file. It 
defines the master/detail relationships between records, chain 
claracter6éstics, and the physical and control characteristics of every 
field of every record type in the I-D-S data file. 


The organization of a Definition Structure using the I-D-S_ shorthand 
technique is shown in Figure 17. 
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Communication 
Control 


Field CHAIN Master CHAIN 


Definition 


Master 
Definition 


Field 
Definition Detail CHAIN 


Chain CHAIN 


Detail 
Definition 


Control CHAIN 


Control 
Definition 


Figure 17. I-D-S Definition Structure 


The Definition Structure is described in the following sections. 
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Communication Control Block 


The Communication Control Block entry must be supplied as the master of 
the Record-Type Chain. It serves as the communication area for data 
which must be passed between the user's program and the I-D-S 
subroutines. The machine format of the entry is shown in Figure 18. 


Bits 

0 5 11 17 23 29 35 
: 
"2 
+3 Record Type 
, 
: 
‘ 


Figure 18. Format of Communication Control Block Entry 


The bit structure of the format shown in Figure 18 serves the following 


purposes: 


bOC=CCB 


Symbolic location of Communication Control Block. 
Definition Type--an octal code of 00. 
Must be zero. 


DIRECT-REFERENCE--a reference code of the record last 
processed by any STORE or RETRIEVE. 


Must be zero. 


FIRST-REFERENCE--reference code of the first record to be 
retrieved by the RETRIEVE EACH verb. The value is supplied by 
the user's program. After each retrieval, the I-D-S 
subroutines modify the value to the next reference code. 
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LOC-CCB+2 
0-11 Must be zero. 


ade pS RED ee ee aS Pe ee an SR ate ee _—— te 


user's 
this reference code is reached, the RETRIEVE EA 
execute the AT END procedure. 


12-35 LAST-REFERENCE--a value supplied by the u ' 


LOC-CCB+3 
O-11 Must be zero. 
12=35 Record type of the last record processed by any STORE or 
RETRIEVE. The value is supplied by an I-D-S subroutine. 
LOC-CCB+4 
0-17 Record Type Chain Next--the assigned symbol of the first 
Record Definition Structure. 

18-23 Must be zero. 

24-35 File Code--the user-supplied, two-character file code 
assigned to the I-D-S data file. 

LOC-CCB+5 
0-17 Must be zero. 

18-35 ERROR- REFERENCE--a BCD code for an error condition 
encountered during execution. If there is no error, the value 
supplied by I-D-S will be zero. 

LOC-CCB+6 
0-5 Must be zero. 
6-17 AUTHORITY--a value supplied by the user. 
18-29 Must be zero. 
30-35 OPEN Mode--a processing mode supplied via the OPEN routine. 


Record Definition Entry 


A Record Definition entry must be supplied for each data record type in 
the I-D-S data file. In addition, one such entry must be supplied for 
the Page Header record. The Record Definition entry is the master of the 
Master Chain, Detail Chain, and the Field Chain; it is a detail of the 
Record-Type Chain. The format is shown in Figure 19. 
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LOC-SYM 


0 5 8 11 17 29 


35 
pos fs Jo] e 


"2 
+3 Current Record Reference Code © 

og 
: 


Figure 19. Format of Record Definition Entry 


The bit structure of the format shown in Figure 19 serves the following 


purposes: 


LOC-SYM 


30=32 


33 


34 


35 


Symbol equivalent to the record name. 

Definition Type--an octal code of Ol. 

Must be zero. 

Record Type--a number from 1 to 999 assigned to each data 
record; 1000(10) is assigned to the Page Header record; for 


a Pagette Header record, the number is 1003(10). 


Record Size--number of characters in the record including all 
control and chain fields. 


Must be zero. 

S--Storage Classification Indicator 

0--Record is stored relative to the chain defined as_ the 
Retrieval Chain for this record. 

1--Record is stored relative to the chain defined as_ the 
Storage Chain, which is not the same as the Retrieval 
Chain. 

P--Page Range Indicator 

0--Absolute Page Range not specified for this record type 

(see LOC-SYM+5). 

1--Absolute Page Range is specified (see LOC-SYM+5). 


R--Retrieval Classification Indicator 


0--Secondary or calculated record 
1--Primary record 
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LOC-SYM+1 


0-17 


18-35 


LOC-SYM+2 


0-17 


18-35 


LOC-SYM+3 


0-11 


1L2=35 


LOC-SYM+4 


0-17 


18=35 
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Page Interval--Number of pages 


page in which the last record of this type was 


the 
This 


to be skipped relative to 
stored. 


only applies to primary or secondary records, 


Master Chain Next--the assigned symbol of the first Master 
Definition for this record. If this record is not the master 
of any chain, this is the assigned symbol of the Record 
Definition. 

Field Chain Next--assigned symbol of the first Field 
Definition for this record. If there are no data fields, then 
this is the assigned symbol of the Record Definition. 

Detail Chain Next--assigned symbol of the first Detail 
Definition for this record. If this record is not the detail 
in any chain, then this is the assigned symbol of the Record 
Definition. 

AUTHORITY--A value supplied by the user not to exceed 


4095(10) which serves as a lock for the data contained in the 


record. Reference to this record during program execution 
allowed only when a matching key is specified by 


calling sequence. 


Current Record Reference Code--reference 


record stored or retrieved 


supplied by I-D-S during execution. 


Record Type Chain Next--assigned symbol of 
Definition of the Definition Structure. 


Record Definition entry, 


is 

the -QOPEN 

code of the last 

of this record type. This is 
the next Record 

Uf this is the last 

this field contains the symbolic 


location of the Communication Control Block. 


Must be zero. 


LOC-SYM+5 
(For P, see LOC-SYM, bit 34.) 
If P = 1, then: 


0-17 Minimum Page Range--the first page number of a range of pages 
into which all records of this type are to be stored. 


18-35 Maximum Page Range--the last page number of a range of pages 
into which all records of this type are to be stored. 


H 

Hh 

tg 
It 


0 and LOC-SYM+5, bits 0-35 = 0, then: 
No Page Range is specified for this record type. 
If P = 0 and LOC-SYM+5, bits 0-35 # 0, then: 


0-17 Minimum Page Range Pointer--points to a word in which bit 
positions 18-35 contain the first page number of a range of 
pages into which all records of this type are to be stored. 


18-35 Maximum Page Range Pointer--points to a word in which bit 
positions 18-35 contain the last page number of a range of 
pages into which all records of this type are to be stored. 


Detail Definition 


A Detail Definition entry must be supplied each time a record is a 
detail in some chain. If a record is a detail in three different chains, 
three Detail Definition entries must be supplied. The Detail Definition 
entry is a detail of the Chain Chain and of the Detail Chain. It is also 
the master of the Control Chain. The machine format of this entry is 
shown in Figure 20. 


bits 
Data 


LOC-SYM Record MBZ Order DUP |CjU/S 
Type 


+1 i i Control Chain Next 
+2 Detail Chain Next 


+3 


+4 |Prior Position Head Position 


Figure 20. Machine Format for Detail Definition Entry 
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The areas in the format shown in Figure 20 serve 


LOC-SYM 


18-25 


26-29 


30-31 


32 


33 


34 


35 
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Symbol assigned to this entry. 


> 
e 


Definition Type--an octal code of 06 


Must be zero. 


Data Record Type--same as that specified by the 


Definition entry for this record. 
Must be zero. 


Order--a code to represent the chain-order of 


details of this chain. Note that when several different 


record types are defined as details of the same 


chain-order must be the same for all records. The chain-order 
for a CALC chain must be 11(8) for after current. 


Octal Code Chain-order 
06 Sorted Within Type 
04 Sorted 
10 First in Chain 
00 Last in Chain 
01 Before Current 
11 After Current 


DUP--Duplicate Records Indicator 


00--Not allowed 
01--Allowed First 
11i--Allowed Last 


C==CALC Chain Detail Indicator 


O--Not a CALC Chain 
1--CALC Chain 


U--Chain Master Indicator 


0--The master of this chain is a unique master 
retrievable via the MATCH-KEY fields defined 
for this chain. 

l--The master of this chain is the current 
master record of its type. 


S--Storage Chain Indicator 


O0--Record is not stored relative to this chain. 
l--Record is stored relative to its logical 
position in this chain. 


R--Retrieval Chain Indicator 


Q--Associative retrieval of this record not 
possible via this chain. —, 
1--Associative retrieval of this record must be 

via this chain. 


the following purposes: 


LOC-SYM+1 


0-17 


18-35 


LOC-SYM+2 


LOC-SYM+3 


O=12 


12-17 


18-35 


LOC-SYM+4 


0-11 


12-23 


24-35 


Chain Chain Next--assigned symbol of the next Detail 
Definition of this chain if there is more than one detail 
record type in the chain. If there is only one Detail 
Definition or if this is the last of several, then this is 
the assigned symbol of the Master Definition for this chain. 


Control Chain Next--assigned symbol of the first Control 
Definition for this chain or, if none, the symbol assigned to 
this Detail Definition. 


Chain Chain Head--assigned symbol of the Master Definition of 
this chain. 


Detail Chain Next--assigned symbol of the next Detail 
Definition for this record if the record is a detail in more 
than one chain. If there is only one Detail Definition or if 
this is the last of several, then this is the assigned symbol 
of the Record Definition for this record. 


Next Position--the character position, relative to the first 
character of the record, in which the first character of the 
chain next pointer is found. 


If this is a CALC chain detail, the NEXT chain field must be 
the first field following the Record Size Field of the 
record; that is, it must be defined as beginning in character 
position. S, 


Must be zero. 


Detail Chain Head--assigned symbol of the Record Definition 
for this record. 


Prior Position--the character position, relative to the first 
character of the record, in which the first character of the 
chain prior pointer is found. If the chain is not prior 
processable, this value is zero. 


When a detail record of a given chain contains a prior 
pointer, all records of the chain must contain a prior 
pointer. 


Head Position--the character position, relative to the first 
character of the record, in which the first character of the 
chain head pointer is found. If the chain is not a headed 
chain, this character is zero. 


Must be zero. 
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Master Definition 


A Master Definition entry must be supplied each time a record is defined 
as the master of some chain. The Master Definition is a detail of the 
Master Chain and the master of the Chain Chain. The machin format of 
this entry is shown in Figure 2l. 

Bits 0 5 r 11 17 35 


LOC-SYM Data Record Master Chain Head 
Type 

; 
+2 Reference Code of Chain Mastey 
: 
+4 Reference Code of Chain Current 
‘ 
+6 


Reference Code of Key Record 


Figure 21. Machine Format for Master Definition Entry 


The areas in the format shown in Figure 21 serve the following purposes: 


LOC-SYM Symbol equivalent to chain name. 
0-5 Definition Type--an octal code of 02 
6-7 Must be zero. 
8-17 Data Record Type--same as that specified for the Record 
Definition entry for this record. 
18-35 Master Chain Head--assigned symbol of the Record Definition 
entry for this record. 
LOC-SYM+1 
0-17 Chain Chain Next--assigned symbol of the first Detail 
Definition for this chain. If the chain has no detail records 
defined, then this is the symbol of this Master Definition. 
18-35 Master Chain Next--assigned symbol of the next Master 


Definition if this record is the master of more than one 
chain. If the record is the master of only one chain or _ the 
master of the last of several chains, then this coding is the 
symbol of the Record Definition for this record. 
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LOC-SYM+2 


LOC-SYM+3 


0-11 


12-35 


LOC-SYM+4 


0-11 


L2=35 


LOC-SYM+5 


LOC-SYM+6 
0-11 


12-35 


Must be zero. 


Reference Code of Chain Master--reference code of the Master 
Record of the chain defined by this Master Definition. This 
value is supplied by I-D-S during execution. 

Next Position--the character position, relative to the first 


character of the record, in which the first character of the 
chain next pointer is found. 

Reference Code of Chain Prior--reference code of the prior 
record of the chain defined by this Master Definition. This 


is supplied by I-D-S during execution. 


Prior Position--the character position, relative to the first 


character of the record, in which the first character of the 
chain prior pointer is found. If the master record is not 
prior processable, this value is zero. 

Reference Code of Chain Current--reference code of the 
current record of the chain defined by this Master 
Definition. This value is supplied by I-D-S during execution. 


Must be zero. 


code of the 
Definition. 


next 
This 


Reference Code of Chain Next--reference 
record of the chain defined by this Master 
is supplied by I-D-S during execution. 


Must be zero. 


Reference Code of Key Record--reference code of the record to 
which a record will be relinked if there is an error in 
modification. This code is supplied by I-D-S during 
execution. 


lil 


Field Definition 


A Field Definition entry must be supplied for each data field contained 
in the record. (Note that Field Definitions are nat supplied for the In 
addition, if the record is defined as a secondary record, a Field 
Definition must be supplied for all MATCH-KEY fields defined. If the 
record is defined as a primary record, a Field Definition must be 
supplied for the field which is equivalent to the reference code. The 
Field Definition entry is a detail in the Field Chain and is the master 
of the Modify Chain. The machine format of the entry is shown in Figure 
22. 


0 5 17 24 33 35 
Storage Char. 
+2 


Field Chain Next Modify Chain Next 


Figure 22. Machine Format for Field Definition Entry 


The areas in the format shown in Figure 22 serve the following purposes: 


LOC-SYM Symbol assigned to this entry. 
0-5 Definition Type--an octal code of 10. 
6-17 Must be zero. 
18 C--Computational Mode Indicator (*) 


0--Noncomputational field recorded in BCD. 
1--Computational field recorded in binary. (The 
implied size is 6 or 12 characters.) 


19-20 AF--Arithmetic Form (*) 
If bit 18=1 then: 
00--Single Precision, Fixed Point 
01--Single Precision, Floating Point 


10--Double Precision, Fixed Point 
11--Double Precision, Floating Point, 
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ai 


22-23 


24-35 


LOC-SYM+1 


30-32 


33=35 


LOC-SYM+2 


0-17 


If bit 18=0 then: 


00--Alphanumeric 

01--Alphabetic 

10--Numeric 

11--Signed numeric (Sign indicated by zone bits of 
low-order character of the field). 


U--Unique Field Indicator 


O0--Field is not a unique or control field 
l--Field is unique and required for identification 
of the record 


When this record is a primary record its unique field is, by 
definition, the reference code. Since a Field Definition 
entry is not supplied for the reference code, a separate 
entry must be supplied to define the working-storage location 
for the field which is equivalent to the reference code. This 
entry must not include the Field Definition specifications 
indicated in this section by (*), since the field is not 
actually contained in the data record. I-D-S assumes that the 
format of this field in working storage is eight characters, 
BCD numeric. 


Must be zero. 


Field Increment (*)--character position of the first 
character of a field; increment zero is the first character 
of the record. 


Location of Working Storage--assigned symbol of the leftmost 
word of working storage defined for this field. The symbol is 
equivalent to the field name. 


Field Size--the number of characters in the field as it 
exists in the record or in working storage. 


Must be zero. 


First Character--position of the first character of the field 
within the first word of working storage. 


Field Chain Next--assigned symbol of the next Field 
Definition of this record, if there is more than one field in 
the record. If there is only one field or if this is the last 
of several, then this value is the assigned symbol of the 
Record Definition for the record. 
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18-35 Modify Chain Next--assigned symbol of the first Control 


Definition for this field or, if the field is not a control 
field, the symbol of this Field Definition. 


Control Definition 


A Control Definition entry must be supplied each time a field is defined 
as a control field of some chain. A control field is defined as a _ sort 
field, MATCH-KEY field, or a RANDOMIZE field. The Control Definition 
entry is a detail of the Modify Chain and of the Control Chain. The 
machine format of this entry is shown in Figure 23. 


0 5 14 17 35 
” 
Field Definition 
+2 


Modify Chain Head Modify Chain Next 


Figure 23. Machine Format for Control Definition Entry 


The areas in the format shown in Figure 23 serve the following purposes: 


LOC-SYM Symbol assigned to this entry. 
0-5 Definition Type--an octal code of 20 
6-13 Must be zero. 
14 R--Match Control Indicator 


0--Equal match required 
1--Match equal or greater (Range Record) 


15-17 CNTL--Control field type 


001--RANDOMIZE control field 
010--Sort Control ascending sequence 
011--Sort Control descending sequence 
100--MATCH-KEY control field 


18-35 Control Chain Head--assigned symbol of the Detail Definition 
of the chain controlled by this Control Definition. 
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LOC-SYM+1 


0-17 Location of MATCH-KEY Field Definition--assigned symbol of 
the MATCH-KEY Field Definition associated with this SYNONYM 
Field. If there is no SYNONYM, this symbol is zero. 


18-35 Control Chain Next--assigned symbol of the next Control 
Definition for the chain. If this is the last or only Control 
Definition, then the code is the symbol of the Detail 
Definition. 


When several sort control fields are defined for a given 
chain, they must occur in sequence from major sort control to 
minor sort control. 


LOC-SYM+2 
O=L7 Modify Chain Head--assigned symbol of the Field Definition 
for this control field. 
L3735 Modify Chain Next--assigned symbol of the next Control 


Definition if this field is a control field in some other 
chain. If this is the last or only Control Definition for 
this field, then the code is the symbol of the Field 
Definition. 


A definition structure produced by the I-D-S Translator and a definition 
structure as expanded by GMAP appear on the following pages. 
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OLT 


IDS ALTER NCS, 


ETE 
AD2435 ,OFD 
ETC 
ETC 


RD2434 ,OFD 


Sisco “EF C 


RD2437 ,oCD 
_ _ ETC 
AL7233 ,ORD 
Vee ETC 


RD7e38 1aDD 
ETC 

ETC 

ETC 
_RE7Z36 , ODD 
tc 

ETC 

ETC 
RL7235 ,QFD 
a ETC 
ETC 


“RE7VES$ FFD 


ETC 
ETC 
AL7237 , OCD 
ETC 
_RL47387 poke. 


ETC 
RE4742 , ODD 
ETC 

ETC 

ETC 


RES740 ODD 


ETC 
ETC 
ETC 
RLA739 ,OFD 


ee ee 
RL4738 ,OFD 
ETC 

ETC 

ALD4742L ,OCD 


ETC 
“RE4481 ARO 

ETC 

ETC 


42447 09 0B -C6"69 17,473 


eye" = 


GEeOt INTEGRATED STORE TRANSLATOR 


CALC 


~ 0400000015,0024,FC5697,RD2434, 


RDZ45D,RDS6974 
QuADS@F ELD 
020» 000009, 0006,FC5953, RD2433_ 


RDAIS7T RDEIS 3, 


QUADS=NUM 

Dede RD2436.PN248O-9NI434,RN2434, 
Q 

002,000043,0,0,0,000000, 
—RD7235—9RD7238,R07235,N000,RD4737, 
“y00000,000000,qUuAD2 

00221020, Crisd, 

0» RD?236,RD72331RD4742,RD4097)RD7238, 
v089,U00g,0000, 

THECKAIN 

ONZe1200,1,Col, 
~-YyRD7233,0D7233»RD4740,RD8129,R07237, 
0005,V000,0000, 

Gabe ; 
0+60s000015,0024)6C4353,RD7234, 
nO 2S>, Ro4353, 

QUAD2*FIELD 

0202000005, 0006,F01025,R07233, 
RD7237.RD1025, 

guAD2eNUM 

Oe 41 RD7236+RD7230,AD7254,RD7234, 
0 

0030000043,0,0,07000000, 


~RDA7S7, RD4742,R04739, 0000,RD4481, 


006000,000000,quAD4 

004540,0,0,1,0, 

ys RD4740, KD4737»RD4097,RD4097,RD4742, 
0039,0000,0000, 

THERCHAIN 


“QOL04200,1,001, 


40RD4757, RD4737)RD04484,RD8129,RD4744, 
0008,0600,0000, 

CALC 

0+00000015,0024+FC1537,RD4738, 
RD47S¥eRO1537% 

“QuUaADI- FIELD ~ 

010, 000009, 0006rrC8065,RD4737, 
RDA741,RD0065, 

QUADL@NUM 
02%0R04740,804740,R04738,RD4738, 


Q 

99U+090055,0,1,0,000000, 
RN7809,RN4484,R094983,0000,R00513, 
yOulg2, 900121, THE@MASTER 


TSDL-2 


CRGO0 


LNdiNO JIdWVS 


EEL 


09 0866769 17,473 GE509 INTEGRATED STORE TRANSLATOR fSDL=2 CHGUO 
TPS ALTER NCS, 
RD7€09 ,QMD 990,RD04097,RD4481,R00196,0031,0000, 
"TEE PAGE@TABLE 
RE4097 9 OMD 990 )RD4481,RD4481,R05062,0027,0000, 
ETC THERCHAIN 
RD4484 ,QODD 990942,0.1,0,1, 
TC 1) RD4404,RD4684,R08129/RD8129,RD4485, 
coeds 2 RTE 0005,N000, aooo, 
ETC CALC 
_AL4483 , OFD 0200000015,0022+FC0324,RD4482, 
ETC RN448S,AD0S21, 
ee 9 2° MASTER@CATA 
AL4482 ,OFD 0,0,000009,0006,FC1069,RD4481, 
- eC RD4485,RD1089, 
ETC MASTERSFIELD 
__ RE4485 , OCD c: 99RU4464,R09484+R04482,R04482, 
ETC 
ACOSI3 ,ORD 10u0, V00622,020+3,000000, 
TC RDO129,RO0913,R00533,0000,CCBLOC, 
vo fos herein ky ae y00000,000000, xP AGE MHEAD XX 
ALSi29 ,OMD 4000, RD0513,R00515, RDS5060,0005,0000, 
‘ ETC CALC 
USE 
JRA 438s a 
LS9000 ZERO QOUCDU,000002 
660001 vFD 26/0,107990 
~ DEOUNL ZERO 0,43 
= at TES) NULL 
ae 7 ~"“ENFER COBOL, 


ENTER DEFINITIONS , 
“SYMBOL RD3437 EQUALS 
_ LINEeNQ t 
SYMBOL FCO3437 EQUALS INITIAL CHARACTER OF 
LINEwNO — ' 
TDS SIZE oO0ud2 EQUALS 
— LINE RNO ' 
SYMBOL RD1475 EQUALS 
__ PAGERNO © as aes he 7 ' 
SYMBOL FC1475 EQUALS INITIAL CHARACTER OF 
PAGE*NO ' 
“JDS SIZE vOQuQé EQUALS 
PAGE#NO 
“SYMBOL RDi217 EQuaLs 
os QUADS HF TELS ; 
“SYMBOL FO4217 EQUALS INITIAL CHARACTER OF 
QUAD4=FIELD 
7 eta 8 ree yos SYze yoouzg4 EQUALS 
QUADSmFIELD ' 
~~~ $¥MAOL REVE79 EQUALS 
QUADS eNIIM : 
“SYMROL FC7873 EQUALS INITIAL CHARACTER OF 


8TT 


42447 09 = O69"G6"69 = =17,499 9108 


__RpgL29— CHN CHN NXT, RD4485 CON NXTe 
~—« OUNETS -UU4ZAU UAT TO O35” “ZERO ~~ —-RDBL29,RD4481 
— RDgL29 CHN CHN HD, RD4461 | ‘DET NXT, 
ENE Sree eee 51psuvog2 
00a247 000500004174 009 VFD 12/0005,6/0,18/RD4481 
Sr eae ees 7 0005 POS NXT, RD4481 DET CHN HD 
o0a<20 ocugouvouounY Oyu VFD —«-1270000,42/0000,12/0 Sone eeere 
ee ee es _ 0006 PRIOR, 0000 HEAD 
7 DETAIL OF CALC CHAIN 
nyo22% 222 RD4483 ,QFD 0,0,000015,0012,FC0321,204482, 
og0g23 | >23 ETC RD4483,R00321, 
== ee 00022 524 ETc MASTER@DATA 
O0ge2, s0000u000017 OOU VED  _ 06/40,12/0,3/70,17/0,2/0,12/000015 pArmaaads DE la ae: 
_ 9 car, 9 UU, pog04> FLD INCRy 
Ooaz22 ou075>0014NU Oqu vFD 18/RDO321,12/0042,3/0) 37FCO324 = 
; 7 ReOS2% wS, 0042 FLD SZ, FCO321 FST CH, 
OOne23 004224 904221 ORK ZERO RN4432,R04485 
aaa RD4482 FLD CHN NXT, RD4483 MOD CHN NxT 
MASTER®DATA evoeF [EL DaNAMEweee 
TT 1022S SAS RATERS OF D ~~ 07 0,090009,0006,F01089,Rp448i, = 
090224 = 926 ETC RDN4485,RD1089, 
000224 327 ETC MASTERMFIELD 
OOge24 100900090013 Quy VFO =—--—-0O/40042/0,5/0,4/0,270,12/000009 
iain eed. 0 car, © U, 909009 FLD INCRe 
Oone25 00075400069 O41u VFD 18/RD$089,12/0006,3/0.37F C1089 
eS a Gane t or ~ «RAL Da9 wS, 0006 FLD Sz, FC1089 FST CH, 
000226 064470 904227 O86 ZERO RD4481,RD4485 
——— ee "RD 4484 FLD CHN NxT, RD4485 MQD CHN Nxt 
MASYERwF IJELD #ee*FLELD@ NAME Sees 
EE B0N227 “328 RD4485 QCD) ~—-0 15 RD 4484,R04484,RD4482, 204482, 
040227 529 ETC 0 
———VOU27  ZCOUITO0 4274 “O05 VET 0B /200870,3 705/21 8/R 04484 oS Se 
0 R, 1 CNTL» RD4484 CON CHN HD, 
~——"000eI0 OCNO5N 004214 O05 ZERO —ss«O0, RD 4484 
3 Lac Syn ,e RDS484 CON, CHAIN NEXT 
oo" —" “OONTIT 004224 904224 03S. ZERO RD4482, abasad: 
RD44382 MoD CH MEAD, RD4482 MOD CHN NXT 
TE TOSS S TSU RYVSIT ORD 1900,000022,0,0,4, 000000, Ce Oe ee 
OV023e 331 ETC  RD8129,RN0515,R00515,0000,CCBLOC, 
dali aaa Waa ognese 992 ETC 000000, 000000. XPAGEMHEADXX 
VFD oe/t, 2/0, 40/1000, 157000022, 3/0, 
OCuZs2 of1750002604 OGY erc 1/94, 470, 1/4 
1990 RECORD TYPE, 090022 REC SJZE» 
PoE seas ee ag Mn he Geta Pane? as enor te. deihes Ss. Pen aetse 4 5, 0 Phd Pe a ee 
O0adgs3 coDgoV 00424n Ous ZERO 090000,RD8129 
099000 PG INT, RD8129 MST CHN NEXT, 
000G34 O0423e Y047G2 058 ZERO RDOSLS,RDOSLS 
— RDO5L3 FLD CHN NXT, RDOSIS DET CHUN NXT, 
000635 o0uD00000000 Ouu VFD 12/0000,24/0 
epee ee Ses eran SS ee ee NOOO “AUTHORITY, so i ie 
000236 000744 QnONUN O4u ZERO Cespioc,9 


cCs3Loc REC TYPE CHN NXT 


6TT 


42447 


EAT. 


0S O8=-C6-64 17,449 


OCN237 


v0M. 40 


CON 41 


OONELG 
ocneéil 
O00€l<E 


ocnéie 


ooné14 


CCAEoe YNyAEe? Guu 


Nulegau 
Moe oh 


Nel/oune4dese Gye 
OC4US7 YG 292 ar 


ARY CAPy SLES Zs 


ALE LOL AgGNUAL Cyu 
OCH OUNGEEDY Guu 
NCGLGoNGounu Cue 


NUR EAD 


NUNKLL 
CCleE14 710n Oy, Olu 


NCULOe yoooL? UL 
NCELOUNGL7 86 (ivy 


NCLLAYU YOReLS Cyu 


Nutet4 


QCiyly 70 oe USe 


239 
$6 
Rw, 
o SR 
259 
246 
243 
242 
o4S 


EBLPS 


LS9uln 
ck Wud 
VEVUOL 
oe lus, 
a 

EGUUne 


ZERO CIIOON COCVDY 
CuCvOM pace R MIN, O90UG0 PAGE R MAX 
KOAGESHEANKX tte eH#RECORUVaNAME want 


menete 1709,RD0515,k20515,RkD9060,0005,0000, 
ETC CALC 
VFO G45/2,2/0,10/1090,18/RN0713 
Lingo REC TYPE% R013 MST CHN HDs 
ZERO RISIGN RNOsSis 
Ki5 769 Cet Cus NXT, RDO513 MST CHN NXT, 
VED 12/9,24/0 
VFU 32/°015,24/0 
Gros POS NEXT, 
VFL 427°090,24/9 
aaareny POS PRIAR 
HSS 2 
MASTE® CF CALC CHAIN 
WSe 
TRA oe LOS. 
ZERO eraeet,000002 
VFu 2e/0,107999 
ZERO c,a% 
NULL 
ENTER DEFIAITIONS , 
TSx1 CCURET 000238 
ENITP Wis HUU23% 


.QRD - RECORD DEFINITION 


RECORD TYPE 


RECORD SIZE 


S - STORAGE CLASSIFICATION INDICATOR 


P - PAGE RANGE INDICATOR 


R - RETRIEVAL CLASSIFICATION INDICATOR 


PAGE INTERVAL 


MASTER CHAIN NEXT 


DETAIL CHAIN NEXT 


FIELD CHAIN NEXT 


AUTHORITY 


RECORD TYPE NEXT 


MINIMUM PAGE RANGE 


MAXIMUM PAGE RANGE 


RECORD NAME 


FORMAT 
Q © © © , 
RDXXXX -QRD XXX ,XXXXXX,X,X_,X_pXXXXXX, Line 1 


ETC RDxxxx , RDXXxxX, RDXXXX,XXXX,RDXxXxxX, Line 2 


BTC Os. x2. 2, Line 3 
TRANSLATOR OUTPUT (see preceding Definition Structure sample) 
RD7233 -QRD 002,000043,0,0,0,000000, 


ETC RD7233,RD7238,RD7235,0000 , RD4737 
ETC 000000 ,000000 ,QUAD2 
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.QDD - DETAIL DEFINITION 
(See Figure 20. Machine Format for Detail Definition Entry.) 
RECORD TYPE 
CHAIN ORDER 
DUPLICATE RECORD INDICATOR 
CALC CHAIN DETAIL INDICATOR 
U - CHAIN MASTER INDICATOR 
S - STORAGE CHAIN INDICATOR 
R - RETRIEVAL CHAIN INDICATOR 
DETAIL CHAIN NEXT 
DETAIL CHAIN HEAD 
CHAIN CHAIN NEXT 
CHAIN CHAIN HEAD 
CONTROL CHAIN NEAT 
NEXT POSITION 
PRIOR POSITION 


HEAD POSITION 


© 
© 
© 
© 
© 
© 
Q 
©) 
@) 
@2) 
® 
@) 
Ge) 


CHAIN NAME SPECIFIED BY 98 LEVEL 


@Q@ CCH 


RDxxxx -QDD XxX, RX, Xp Rep Xe Kp Line l 


QO ® @ @ 


ETC x, RDXXXX , RDXXXX, RDXXXxX, RDXXXX , RDXXXX, Line 2 


@ & 


ETC XXKX ) XXKX >) KXXX , Line 3 


iy ye oe Line 4 


TRANSLATOR OUTPUT (see preceding Definition Structure sample) 


FORMAT 


RD7238  .QDD 022,10,0,0,1,0 
ETC 0 ,RD7236 ,RD7233,RD4742,RD4097,RD7238, 
ETC 0039,0000,0000, 
ETC THE-CHAIN 


Lek 


.QMD - MASTER DEFINITION 


RECORD TYPE 
MASTER CHAIN NEXT 
MASTER CHAIN HEAD 
CHAIN CHAIN NEXT 
NEXT POSITION 


PRIOR POSITION 


CHAIN NAME SPECIFIED BY 98 LEVEL 


@) 


RDXXXX -QMD XXX , RDXXXx, RDXXxx , RDXXxXX ,XXXX,XXXX, Line 1 


ETC x (30) Line 2 
TRANSLATOR OUTPUT (see preceding Definition Structure sample) 


RD7809 .QMD 990,RD4097,RD4481,RD0196 ,0031,0000, 
ETC PAGE-TABLE 
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.QFD - FIELD DEFINITION 


(See Figure 22. Machine Format for Field Definition Entry.) 


@) COMPUTATION MODE AND 
ARITHMETIC FORM 

ALPHANUMERIC BCD FIELD 
ALPHABETIC BCD FIELD 
NUMERIC BCD FIELD 
SIGNED NUMERIC BCD FIELD 
SINGLE PRECISION FIXED POINT BINARY FIELD 
SINGLE PRECISION FLOATING POINT 

BINARY FIELD 
DOUBLE PRECISION FIXED POINT BINARY FIELD 
DOUBLE PRECISION FLOATING POINT 

BINARY FIELD 
U - UNIQUE FIELD INDICATOR 


6 
7 


FIELD INCREMENT 


FIELD SIZE 


FIRST CHARACTER 


FIELD CHAIN NEXT 


MODIFY CHAIN NEXT 


LOCATION OF WORKING STORAGE 


@ 
@ 
® 
@) 
©) 
@ 
) 


FIELD NAME 
FORMAT 
RDXXxXX -QFD CO rx, Ox, Line l 
ETC Oe Ol Line 2 


ETC OF 


TRANSLATOR OUTPUT (see preceding Definition Structure sample) 
RD2345 -QFD 0,0,000015,0024,FC5697,RD2434 


ETC RD2435,RD5697, 
ETC QUAD3-FIELD 
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.QCD - CONTROL DEFINITION 


R-MATCH CONTROL INDICATOR 
CNTL - CONTROL FIELD TYPE 
CONTROL CHAIN HEAD 
CONTROL CHAIN NEXT 
MODIFY CHAIN HEAD 


MODIFY CHAIN NEXT 


LOCATION OF MATCH-KEY FIELD DEFINITION 


RDXXXX -QCD X,X,RDXXxXxX,RDXXXX, RDXXXK,RDXXXX, Line 1 


ETC RDXXXxX Line 2 
TRANSLATOR OUTPUT (see preceding Definition Structure sample) ) 


RD2437 -QCD 0,1,RD2438,RD2436,RD2434,RD2434, 
ETC 0 
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6. Operational Characteristics 


I-D-S provides the following capabilities: 


A controlled, concurrent access to a common I-D-S' structured data 
file which is created by the File System Activity; 


A common journal file for the automatic collection of journal 
records from each of multiple I-D-S activities in execution; 


An integrated set of utility routines to enable recovery and/or 
restart following a condition which requires restoration of the 
data file. 


Concurrent access to a common I-D-S data file is provided through the 
concept of subfile definition and allocation. A subfile is defined as a 
set of pages that fall within the total I-D-S data file. This range may 
be either the complete I-D-S data file or a portion. The File System 
Activity ($ FILSYS) procedures allow the creation, modification, and 
deletion of subfiles within an I-D-S file. 


At execution time, the I-D-S user specifies the subfiles which must be 
allocated to his activity. Each subfile requested is given an associated 
access mode, 


I-D-S DATA FILE INITIALIZATION 


Prior to the operation of any I-D-S program, the mass storage device 
must have been initialized with a Page Header record as the first record 
of each page in the I-D-S data file. 


The I-D-S utility program QUTI accomplishes this I-D-S data file 
initialization. 
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CREATING AN 1-D-S DATA FILE 


An I-D-S data file may be created on one or many mass storage devices 
with different hardware characteristics. It can be permanent, temporary, 
or a combination of the two. In creating this file, the number and 
location of pages must be considered. 


The various directives necessary for creating an I-D-S data file are 
described below. Only the I-D-S options are included. Refer to the 
GE-600 Line GECOS III File System Reference Manual, CPB-1513, for a 
detailed description of the GECOS III File System. 


Creating a Permanent !-D-S Data File 


A permanent I-D-S data file is created by using the file system 
FCREAT/IDS/ directive. The options used with FCREAT/IDS/ are: 


BASESIZE/n/ Base size is required; /n/ defines the maximum size of 
the complete I-D-S data file; /n/ must be greater than 
or equal to 1 and less than or equal to 262143. If 
multiple files are created to form the complete I-D-S 
data file, the value of /n/ must be identical on all 
directives. 


RNG/r1,r2/ The page-range is required to define the pages 
contained in the file; rl and r2 are the beginning and 
ending page numbers respectively; rl must be less than 
or equal to r2; the values of rl and r2 must be 
greater than or equal to 1 and less than or equal to 
262143. This range may be either the complete I-D-S 
data file or a portion. 


PAGESIZE/n/ The page size is optional. If it is omitted, a _ size 
of 320-words is assumed. When it is present,/n/ must 
be greater than or equal to 40 and less than or equal 
to 640. This allows a different page size in each 
subfile within the complete I-D-S data file. 


When /n/ is present, the actual page size used will be 
adjusted, if necessary, to reflect a multiple of 
sector size of the hardware device for this file. (For 
a DSU200 Magnetic Disc Subsystem, page size will be 40 
x 2", where n is an integer and Kn<4. For a DSU270 or 
a DSU167 or for an MDS200 Magnetic Drum Subsystem, 
page size will be 64 x n, where nis an integer and 
1<n<10.) 
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LINESPERPAGE/n/ Lines per page is optional. If it is omitted or 
greater than 63, 63 lines per page is assumed. When 
/n/ is present and less than 63, multiple copies of 
data pages are created to satisfy all 63 line flags. 


INVENTORY /n/ Inventory is optional. If it is omitted, a value of 
75 is assumed. When /n/ is present it defines’ the 
percentage of page fill, which controls inventory 
update; /n/ may contain the word "NO" to allow 
exclusion of inventory pages and processing. 


A sample deck setup to create a permanent I-D-S data file follows. It 
consists of 480 pages in the complete I-D-S data file but it is created 
as four files, each with 120 pages. 


|FILSYS 


1 
$ 
iS jIDENT 
$ 
$ IPRIVITY | 


CRMAST IDSFOURYQUAD /IDSFOURYQUAD, PASSWORD /DATABASE/, 
SIZE/100/ 

CCREAT IDSFOURYQUAD , PASSWORD /DATABASE / 

USERID IDSFOURYQUADS DATABASE 

CPOS IDSFOURYQUAD 

FCREAT/IDS/ QUAD01,BASESIZE/480/,RNG/1,120/, 
PAGESIZE/160/,LINESPERPAGE/32/, 
INVENTORY/25/,SIZE/13/,MODE/RAND/, 
DEVICE/DS3/ 

FCREAT/IDS/ QUAD02,BASESIZE/480/,RNG/121,240/, 
PAGESIZE/320/,LINESPERPAGE /63/, 
INVENTORY /75/,SIZE/11/,MODE/RAND/, 
DEVICE/ST1/ 

FCREAT/IDS/ QUAD03,BASESIZE/480/,RNG/241,360/, 
PAGESIZE/320/,LINESPERPAGE/63/, 
INVENTORY/75/,SIZE/11/,MODE/RAND/, 
DEVICE/DS2/ 

FCREAT/IDS/ QUAD04,BASESIZE/480/,RNG/361,480/, 
PAGESI ZE/320/,LINESPERPAGE/63/, 
INVENTORY /75/,SIZE/11/,MODE/RAND/, 
DEVICE/DS2/ 


$ ENDJOB 
*KKEOF 


The above control cards will create an I-D-S data file structure as 
shown in Figure 24. 


127 


pee Master | 


| Catalog | 


User's Master 
Catalog 


Figure 24. I-D-S Data File Structure 


The name in the System Master Catalog is the USERID assigned by the 
CRMAST directive. This is the name I-D-S will use as the I-D-S data file 


nhame. 


To have 
control 
contain 
restart 
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access to this I-D-S data file, the user must supply a $ USERID 
card in the execution deck setup. The I-D-S journal records will 
this name, which will be used by the I-D-S utility routine when 
and recovery is required. 


Creating a Temporary |-D-S Data File 


A temporary I-D-S 
directives with the 


The directive format is: 


a 8 


! 
DS \CREATE 


data file is created by including IDS Create 
I-D-S execution activity. .These directives are 
contained in the .Q data file. 


16 


jattributes 


The attributes are separated by commas. 


The attribute names may be the complete name or the abbreviation. 


FILECODE (FC) /f£c/ 


BASESIZE(BSSZ) /n/ 


RANGE (RNG) /r1,r2/ 


PAGESI ZE (PGSZ) /n/ 


File code is used to associate the attributes on 
this directive with the file code on the S$ 
"Pile" card such as: 


$ DISC fc,lud,#random links 


Base size is required on at least one directive 
card submitted for an I-D-S execute. If multiple 
directives are submitted, the value of /n/ must 
be identical; /n/ defines the maximum size of 
the complete I-D-S data file; /n/ must be 
greater than or equal to 1 and less than or 
equal to 262143. 


Page-range is required to define the pages 
contained in a file; rl and r2 are the 
beginning and ending page numbers respectively; 
rl must be less than or equal to r2 and (the 
value of rl and r2 must be greater than or equal 
to 1 and less than or equal to 262143. This 
range may be either the complete I-D-S data file 
or it may be a portion. 


Page size is optional. If it is omitted, a size 
of 320 words is assumed. When it is present, /n/ 
must be greater than or equal to 40 and =4Iless 
than or equal to 640. This allows a different 
page size in each subfile within the complete 
I-D-S data file. 
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LINESPERPAGE (LPP) /n/ 


INVENTORY (INV) /n/ 


When /n/ is present the actual page size used 
will be adjusted, if required, to reflect a 
multiple of sector size of the hardware device 
for this file. (For a DSU200 Magnetic Disc 
Subsystem, page size will be 40 x 2", where n is 
an integer and l<en<4. For a DSU270 or a DSU167 
or for an MDS200 Magnetic Drum Subsystem, page 
size will be 64 x n, where n is an integer and 
l¢n¢10.) 


Lines per page is optional. If it is omitted or 
greater than 63, 63 lines per page is assumed. 
When /n/ is present and less than 63, multiple 
copies of data pages are created to satisfy all 
63 line flags. 


Inventory is optional. If it is omitted, a value 
of 75 is assumed. When /n/ is present it defines 
the percentage of page fill, which controls 
inventory update; /n/ may contain the word "NO" 
to allow exclusion of inventory pages and 
processing. 


The deck setup below will create a temporary I-D-S data file to be used 


by the I-D-S activity. 


1 8 
| | 
$ ISNUMB 
$ JIDENT | 
g lOBJECT l 
! . | 
t+ 
$ DKEND | 
: EXECUTE DUMP 
LIMITS 
$ lntsc lal ,A1lS,13R 
$ Iptsc la2,A2S,11R 
$ lntsc IA3,A3S,11R 
$ Iprsc |A4,A4S,11R 
$ IDATA [-Q 
IDS {CREATE |FC/Al/,BSSZ/480/,RNG/1,120/,PGSZ/160/, 
|LPP /32/,INV/25/ 
IDS \CREATE |FC/A2/,BSSZ/480/,RNG/121,240/,PGSZ/320/, 
LPP /63/,INV/75/ 
ips ‘create  I|Fc/a3/,RNG/241,360/ 
IDS lCREATE IFC/A4/,RNG/361,480/ 
$ lENDJOB. | 
**k*XEROF | 
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Mixing Temporary and Permanent Files 


An I-D-S data file is subordinate to the GECOS-III file system. The 
I-D-S data file may be created on one or many mass storage devices with 
different hardware characteristics. This facility allows selected I-D-S 
record types to be given page-ranges, which may then be directed to a 
specific hardware device when the file is created. I-D-S utility 
routines provide for selective file dump and reload. It is possible that 
an application may require that pages residing on one type of hardware 
be dumped and then reloaded on another type of hardware. 


Two hypothetical cases where the user may want to mix permanent and 
temporary files follow: 


A user may want to establish a page range for records that are only used 
weekly or monthly. For this application, the page range would not be 
created as a permanent file. Instead the page range would be created as 
a temporary file, the data stored, and the file dumped to tape. 


When the records are to be used, the temporary file is established, the 
file is reloaded from the dumped tape, and the program is executed using 
this file in conjunction with the permanent file. Again, the file is 
dumped to tape and saved for the next weekly or monthly run. 


Another example of mixed permanent and temporary files is using a 
temporary file for the work area of execute activities. In this usage, a 
permanent file would not be required for the delete process, since this 
temporary area would be purged at the end of the activity. 
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ACCESSING AN i-D-S FILE 


Each subfile requested must have been created previously as an I-D-S 
data file. A $ PRMFL control card is required for each subfile. Refer to 
CPB-1518 for a complete discussion of options used. The I-D-S options 
are discussed below: 


| 

lfc,Permit,Mode,File String 
jic,/LUD,Permit,Mode,File String 
I ' 


PERMIT is an option describing the I-D-S usage. Multiple access modes 
may be used. If used, they are separated by slashes (/). The valid 
options are: 


WRITE - The user requests the subfile for updating records. 


READ - The user requests the subfile for retrieving records. 


RECOVERY - The user requests access to an aborted subfile to 
reestablish the integrity of the subfile. 


Examples: 


lal ,READ, R, IDSFOURYQUAD/QUADO1 
i 


| 
IPRMFL |A3,RECOVERY /READ/WRITE, R, LDSFOURYQUAD/QUAD03 
| 


A2,READ/WRITE,R,IDSFOURYQUAD /QUAD02 
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Sample deck set up of LUD Option, 


used with 


the "CLOSE WITH LOCK" 


statement for dynamic release of I-D-S file. 


M1 


8 16 
| 


| 
ITDENT | 
lUSERID | 
a 
| I 
— (First Activity) 
|PRMFL JA1/D1S,R/W,R,FILE STRING 
IPRMFL IA2/D2S,R/W,R,FILE STRING 
| ‘ 
| | 
Wg (Last Activity) 
IP TLE ITF ,D1R,1R 
ITG,D2R,1R 


Table A shows the action taken when the LUD option is used. 


DISPOSITION 
CODE 


PERMANENT FILE 


File is made unavailable 
to the run unit. 

File space is available to 
the system for allocation. 


File is made unavailable 
to the run unit. 

File space is held for 
allocation to other 
activities in this job. 


Table A. 


TEMPORARY FILE 


File is made unavailable 
to the run unit. 

File is available for 
allocation to other jobs. 


File is made unavailable 
to the run unit. 

File is NOT available for 
allocation to other jobs. 
File is held for 
allocation to other 
activities in this job. 
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An I-D-S activ ity which includes a request for subfiles is not allocated 
until all requested subfiles are allocated. The subfile allocation 


criteria are shown in Figure 25. 
ACCESS REQUESTED 


SUBFILE ALLOCATION 
CONDITION 


ACTION 
eee ee eet LL 
a 


DENY ALLOCATION X 


mn avroraon ee fol {MT TT le 


Figure 25. I-D-S Data File Allocation 
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Since a READ access mode does not alter the contents of a subfile, 
several I-D-S activities can share a subfile in READ mode. If a_ subfile 
is allocated to an activity in the READ mode, it can also be allocated 
to any other I-D-S activity which wishes to use it in the READ mode. 
Allocation of the subfile would be denied, however, to any activity 
requesting WRITE usage for a subfile which is already allocated for READ 
usage. 


While there can be concurrent users of a subfile in READ mode, there can 
be only one active user for a subfile in the WRITE access mode. All 
other allocation requests for the subfile would be denied until the 
activity which is doing the UPDATE has terminated. 


Subfiles allocated in the WRITE access mode are marked in ABORT status 
if the activity aborts. A subfile in ABORT status will be allocated by 
requesting RECOVERY access mode in addition to READ and WRITE. 


The individual responsible for maintaining the I-D-S data file must 
prepare the necessary input for a RECOVERY run. The utility routines 
which aid in this preparation are discussed later. 


The abort indicator is turned off for an aborted subfile after a 
successful RECOVERY run is made on that subfile. It is then available 
for normal allocation. 
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Subfile Deallocation 


I-D-S data files are deallocated at activity termination. Figure 26 
shows the deallocation activity and the action taken. 


ACTIVITY TERMINATION FILE BUSY ACCESS MODE 
CONDITION READ WRITE| RECOVER’ 
NORMAL Px{ |x| 


ner hres 
SET FILE ABORT OFF ze 


Figure 26. I-D-S Data File Deallocation 


I-D-S JOURNAL FILE 


A journal file is a recording of all I-D-S data file page transactions. 
Journal information is collected on the accounting file tape from each 
of multiple I-D-S activities in execution, thus providing a single 
source file that is used to reestablish a data file to some previously 
known status in the event that the file should lose its integrity. A 
journal tape is labeled and is a single file. Multiple reel output may 
be produced depending on the journalization required. 


When an end of reel is reached or an activity with write permission 
aborts, a reel swap or unit switch occurs. Two operator inputs permit 
the accounting file to be closed for I-D-S purposes: 


IDSEJ Close the accounting file with an EOF trailer label when 
all I-D-S jobs known to the system are complete. 


IDSER Close the accounting file with an EOR trailer label at 
the time of the request. 
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1-D-S Journal File Configuration 


The I-D-S Journal file is configured on the system accounting file tape 
at system startup time by adding the I-D-S options to the Startup $§ 
ACCOUNT control card. Refer to the GE-600 Line GECOS III Startup 
Software Maintenance Document, CPB-1489. 


The I-D-S options are: 


IDS This option indicates that the I-D-S journal records are 
to be included on the system accounting file as record 
type 13(8). 


BUFSIZ/n This option sets the size of the collecting buffers for 
I-D-S journal records and the accounting records. If 
omitted, then /n is assumed to be 320. The value /n must 
be set to at least 12 words larger than the maximum page 
size that may be placed on the journal file. If a journal 
record is encountered which is greater in size than the 
collecting buffer, the slave program will be terminated 
with a D2 abort code. 


RETENTION/n This option allows the retention period in days required 
for label checking/writing to be established for the 
I-D-S journal file. 


Journal Record Format 


Journal records are produced as record type 13(8) on the system Error 
and Accounting file which must be configured at system startup time and 
must be assigned to magnetic tape. Override options are discussed later. 


With the exception of block size, records are written in standard system 
format as described in the GE-600 Line File and Record Control Reference 


Manual, CPB-1003. The block size is as large as the buffer size defined 
on the startup $ ACCOUNT control card. 


The various formats for record type 13(8) that can be recorded on _ the 
journal tape appear below followed by definitions of terms common to all 
types. 


is 


Slave Begin Sync, Record Type 03. This record is written at the 
beginning of each I-D-S slave activity. 


word Contents 
1 Record control word for journalizing 
2 Checksum 
3 SNUMB 
4 Start date (MMDDYY) 
5 Start time (HH.TTT) 
6 Indicators (bits 0-11) 
Activity number (bits 27-35) 
7 Not used 
| I-D-S data file name 
9 


Subroutine .QOPEN generates this record and stores it in the slave 
program prefix as follows. (See also "I-D-S Data Pages" in Chapter 7 for 
special conditions that apply when using disc sort.) 
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Location in Word Word Contents 
Prefix (decimal) 


54 000013 
(Size) (Type) 

s 

s 

1 

58 


59 il aes Activity # 
s oe 


61 
62 


I-D-S data file name 


Page Image Record, Record Types 05 and 06. There are two types of Page 


Image records (BEFORE and AFTER) written to the journal tape. The 
indicator word defines the type. A BEFORE page image is written before a 
page is modified. An AFTER page image is written after the modification. 


Word Contents 
1 Record control word for journalizing 
2 Checksum 
2 Job number 
4 Start date (MMDDYY) 
5 Start time (HH.TTT) 
6 Indicators (bits 0-11) 
Activity number (bits 27-35) 
7 Lines per page (bits 0-17) 
Sequence number (bits 18-35) 
8 
} I-D-S data file name 
9 
10-n Activity page image 


Slave End Sync, Record Type 04. This record is written when an I-D-S 
slave program terminates. The termination code is stored in the record. 


Word Contents 


Le Record control word for journalizing 
2 Checksum 
3 Job number 
4 Start date (MMDDYY) 
5 Start time (HH.TTT) 
6 Indicators (bits 0-11) 
Activity number (bits 27-35) 
7 Termination code 
} I-D-S data file name 
9 
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Journal Record, Record Type 09. This record is written when subroutine 
-QSTB 1S used to gather type B subroutine execution information. (See 
QUTR Program writeup in Chapter 8.) 


Word Contents 
1 Record control word for journalizing 
2 Checksum 
3 Job number 
4 Start date (MMDDYY) 
5 Start time (HH.TTT) 
6 Indicators (bits 0-11) 
Activity number (bits 27-35) 
7 Alter number of call to subroutine 
8 
| I-D-S data file name 
9 
10 Control word (see following explanation) 
om Number of reads for any given 
12 Number of writes control word 


(word 10) 


The control word format (word 10) is as follows: 


wheres: 
Code is one of the following function values: 


- Store record type 

- Retrieve record type 

- Retrieve current record type 
- Retrieve direct 

Retrieve each 

- Retrieve next of chain 

- Retrieve prior of chain 
- Retrieve master of chain 
- Head of chain 

10 - Modify record type 

ll - Delete record type 

12 - Debug 


WOON HDUPWN-E 
! 


Type - 1 is the record type for the preceding function 
or the record type of the master of a chain. 


Type - 2 is the record type of a detail of a chain. 


140 


Definition of Terms 


Checksum 


Date 


Time 


Indicators 


Record Type 


Lines per Page 


Termination Code 


I-D-S Date 
File-Name 


The checksum of all words (other than the checksum 
word) in the record. 


A 6-character field indicating month, day, and year 
the record was written. For slave End Sync records, 
it is the date the corresponding Slave Begin Sync 
record was written. 


Time the activity was started expressed in hours, 
decimal point, and thousandths of an hour in BCD 
format (HH.TTT). For Slave End Sync or Page Image 
records, it is the time in the corresponding Slave 
Begin Sync record. 


A l-word indicator which defines the record type 
and contains the activity number. 


A l-character BCD field that appears in bits 6-11 
of the indicator word. The record type indicators — 
are shown below: 


TYPE 3 Slave Begin Sync (SLVBGN) 
TYPE 4 Slave End Sync (SLVEND) 
TYPE 5 Before Page Image (BEFORE) 
TYPE 6 After Page Image (AFTER) 
TYPE 9 Statistics 


The lines per page for the Before/After Page Image. 


A 2-character code in bits 27-35 of the Slave End 
Sync record. Termination codes are: 


00 Normal activity termination 

00 Normal job termination 

cc Abnormal termination; cc is a 
2-character alphanumeric 
abort code. 


A 12-character name, left justified. This name is 
taken from the $ USERID card. 
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Job Number A 5-character SNUMB for the job, left justified and 
followed by an ignore character. 


Sequence Number A binary sequence number carried in the Page Image 
records. BEFORE records are sequenced by 1 in 
ascending order starting with 1. AFTER records are 
sequenced in descending order starting with all 
binary 1's in bits 18-35. 


Record control word 

for journalizing A control word that contains the number of words in 
the record in bits 0-17 and defines it as_ record 
type 13(8), right-justified, in bits 18-35. 


Closing Journal Files 


The system-configured journal tape collects the journal data as one long 
file. From an operational point of view, it is necessary to periodically 
"close" one journal file and start another. This closing, followed by an 
opportunity to dismount and replace the journal tape, is done 
automatically when there is a master mode abort. 


The operator may periodically request that a journal file be closed and 
another file started. He does this by requesting control and using the 
IDSEJ typein. The system response to this input is shown in the 
following table. 


CONDITION ACTION 
An I-D-S activity is in IDSEJ DELAY message is typed 
execution. out. The I-D-S journal file 


will be closed when there is 
no I-D-S activity in 


execution. 
No I-D-S activity is in An end-of-file is recorded on 
execution. the journal tape and a dismount 


message is issued. 
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Journal Override 


Journal records are automatically written to the system-configured Error 
and Accounting tape; however, there are two activity override options 
available. Option 1 permits the user to request his own tape; option 2 
suppresses all journalization. 


The control card format for option 1 is: 


1 8 16 
1 | 
$ "TAPE \IX,X1D,,,,IDS-JOURNAL 
] ' 


If a tape file JX is assigned for an activity, all journal record 


types -- the Slave Begin Sync, Slave End Sync, and all BEFORE and 
AFTER records and all statistics records -- are written to this 
file. 


The control card format for option 2 is: 


1 8 16 
| 
1 
$ \EXECUTE |DEBUG 


DEBUG in the variable field of the $ EXECUTE control card causes 
bit 11 of the Program Switch Word to be set ON which prevents’ any 
journal records from being generated. 


Examples: 


1. The Slave Begin Sync, Slave End Sync, BEFORE and AFTER records 
are written to the user-supplied file JX. 


1 8 16 


DENT 


| 
$ | | 
$ jOBJECT | 
ji! “<3 | 
i ° | 
bn I 
$ \DKEND | 
$ |EXECUTE |Options 
$ ITAPE IIX,X1D,,,,IDS~JOURNAL 
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2. 


Journal File Map 


A map of 
produced 
file has 
activity 


A sample 


QINL O41 
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No journalization takes place. 


NW 


EXECUTE 


all Syne records contained on the I-D-S Journal 


by executing the 


Or, 


-QUTJ I-D-S utility routine 
been made available after the abnormal termination of an 
(2) the operator requests an end-of-file condition. 


journal file map follows. 


09=27+68 


11,344 


IDS UTILITY ROUTINE & 


SLVBGN 
SLVEND 
SLVBGN 
SLVBGN 
SLVEND 
SLVEND 
SLVBGN 
SLVEND 
SLVBGN 
SLVEND 
SLVBGN 
SLVBGN 
SLVEND 
SLVEND 
SLVBGN 
SLVEND 
SLVBGN 
SLVEND 


1-QUT] 

1-QUTI 

1-TSTO3 
1-TST3C 
1-TSTO3 
1-TST3C 
1-QUTDL 
1-QUTDL 
2-QUTDL 
2-QUTDL 
1-TST4A 
1-TST48 
1-TST4A 
1-TST48 
1-TST4C 
1-TST4C 
1-QUTD 

1-QUTD 


09-27-68 
99-27-68 
09-27-68 
09-27-68 
09-27-64 
09-27-68 
09-27-68 
09-27-68 
09-27-68 
09-27-68 
09-27-68 
09-27-68 
09=27-68 
09-27-68 
09-27-68 
09-27268 
09-27-68 
09-27-68 


IDS JOURNAL TAPE REPORT 
,QUTU = VERSION 


11.199 
11,199 
11,210 
41.211 
11,210 
t1.211 
11,222 
11.222 
11,227 
11.227 
11,237 
11,238 
11,237 
11.238 
11,240 
11,240 
11,247 
11,247 


050 
049 
030 
039 
040 
040 
050 
040 
039 
040 
039 
050 
040 
040 
030 
040 
0350 
049 


file 


may be 


(1) when a journal 


I-D-S 
080168, 

0 IDSFIURYQUAD 

80  TDSFIURYQUAD 

0  JDSFIURYQUAD 

0 I1DSFOURYQUAD 

00 Y;OSFOURYQUAD 
00 JDSFOURYQUAD 

0 IDSFOURYQUAD 

00  IOSFIURYQUAD 

0 IDSFIURYQUAD 

00 JDSFIURYQUAD 

0 IDSFIURYQUAD 

0 IDSFOURYQUAD 

00 IDSFIURYQUAD 
00 JDSFOURYQUAD 

0 IDSFOURYQUAD 

00 JPSFIURYQUAD 

0 IDSFIURYQUAD 

00 JDSFOURYQUAD 


RECOVERING AN |I-D-S DATA FILE 


All I-D-S slave programs interface with GECOS-III through the MME GEIDSE 
incorporated in the I-D-S object-time subroutines. The MME enables’ the 
subroutines to record page images on a system configured journal tape. 
BEFORE page images are written to the journal tape prior to the 
modification of a page; AFTER page images are written to the journal 
tape following modification of the page. When recovery of the data file 
is desired, the journal tapes containing the required pages are 
processed as illustrated in Figure 27A. Figure 27B illustrates. an 
alternate method. 


I-D-S 
SLAVE 
PROGRAM 


GECOS- IIT 
OPERATING 
SYSTEM 


LISTING 
DIRECTIVES 
(CRITERIA) QUTF 
OUTPUT (OPTIONAL) 
TAPED (esos ee QUTI LISTING 
QUTS 
OUTPUT (OPTIONAL) 
___.___ __ (OPTIONAL) LISTIN 
TAPE QUTJ G 
I-D-S 
DIRECTIVE QUTU DATA 
(LOAD OPTION) FILE 


Figure 27A. Operational Sequence to Re-establish an I-D-S Data File 
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I-D-S 


SLAVE 
PROGRAM [ GEcos-I11 y 
| OPERATING | -f sournat \ 
SYSTEM 


(OPTIONAL ) 
ee LISTING 


DIRECTIVES 
(LOAD OPTIONS) 


Figure 27B. Alternate Operation to Re-establish an I-D-S Data File 
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The individuals responsible for maintaining the data base establish the 
selection criteria for obtaining the appropriate pages from the journal 
tape. This is done using the information from the Journal Tape Map or 
from a complete journal dump created by the QUTJ utility routine. The 
QUTP utility routine selects pages from the journal tape. The QUTS 
utility routine then sorts the selected page image records and purges 
multiple page images having the same page number. The sorted output 
consists of the first BEFORE or the last AFTER image for a given page 
number as required for the data file reload. The QUTU utility routine 
reloads the output to the appropriate portions of the data file. 


Since rollback does not reestablish the data file to a previous 
condition, the MME GECHEK and MME GEROLL should not be used by an I-D-S 
program. 


1-D-S EXECUTION REPORT 


I-D-S appends information about the data base to the execution report. 
This information includes (1) the attributes of the data base (2) total 
input/output performed on the data base, and (3) input/output performed 
on the data base as a function of each I-D-S subroutine. Formats of the 
three types of information are shown in the following examples and are 
explained by the notes corresponding to the circled callouts. 


Example 1: Data Base Attributes 


Files Allocated -- the number of permanent and/or temporary 
IDS files allocated to the activity 


(2) Range -- the smallest and largest page number present in the 
files 

(3) Basesize -- the value to be used in the randomize routine 

(4) Buffers -- the number of page buffers present 


An entry appears under each of the following heads for each file or 
subfile: 


(s) Filecode -- the file code referenced by the program 


(6) Range -- the range for this file or subfile 
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(7) Pagesize -- the page size for this file or subfile 


(8) Pages/Page -- the number of pages per page for the file or 
= subfile 
(9) Lines/Page -- the number of lines per page for the file or 
subfile 
Links Aloc -- the number of links allocated to the file or 
subfile 
(4) Links Nec -- the number of links necessary to contain the 
pages defined for the file or subfile 
(2) Access Mode -- the mode in which the file or subfile is being 
accessed 
@3) Inventory -- the percentage value at which inventory will be 


updated on the file or subfile 


© ® © © 


1 FILES ALLOCATED, RANGE 1 - 100 BASESIZE 100 BUFFERS 29 


F ILECODE RANGE PAGESIZE PAGES/PAGE LINES/PAGE LINKS ALOC LINKS NEC ACCESS MODE INVENTORY 


Al 1- 100 320 1 63 20 9 WRITE 75 


Oo OO ®O® ®O Oo © © © 
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Example 2: Total I/O Performed on Data Base 


The following are shown for each file or subfile: 


Q) File Code -- the file code referenced by the program 

(2) # of Reads -- the total number of reads that occurred on _ the 
file or subfile 

G) # of Writes -- the total number of writes that occurred on the 
file or subfile 

(4) Inventory Reads -- the number of inventory reads that occurred 

on the file or subfile 
(s) Inventory Writes -- the number of inventory writes that 


occurred on the file or subfile 


I-D-S UTILIZATION REPORT 


FILE CODE # OF READS ## OF WRITERS INVENTORY READS INVENTORY WRITES 


TF 258 2883 1 i 


@ @ © © © 
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Example 3: 1/0 Performed on Data Base as a Function of Each I=-D-S 
Subroutine 


This report is produced by the I-D-S close subroutine. Counts. are 
accumulated for each primary entry subroutine -- that is, each 
subroutine called by the object program. These are known as type A 
(.QSTA) subroutine execution statistics. (An additional, more detailed 
(type B) report can also be produced as a separate output at the user's 
option. For this report the .QSTB subroutine is used to accumulate the 
statistics on the journal file, and the QUTR program produces’ the 
report. See the QUTR writeup in Chapter 8 for details.) 


The type A report contains the following information: 


Primary entry subroutine name 


Total number of times subroutine was called 


Total number of reads for execution of the subroutine 


Total number of writes for execution of the subroutine 


OC :© 


SUBROUTINE STATISTICS 


NAME NO. TIMES CALLED NO. READS NO. WRITES 
.QSTOR 18 6 10 
.QGET 18 0 2 
. QCHN 88 0 6 
. QMDFY 18 0 24 


@) @ @ ® 
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7. Memory Management 


ASSIGNMENT OF !-D-S BUFFERS AND WORK AREAS 


The I-D-S subroutines require data page buffer areas and working areas. 
The user defines the size of these areas by employing one of the _ two 
following procedures. 


With a $ USE Card 


A Labeled Common area (.QAREA) may be specified by the GELOAD control 
card shown below: 


1 8 16 


I J 
f lUSE 1. QMAX/1/ ,»QAREA/n/,.QMIN/1/ 
t 1 


The $ USE control card must be inserted before the $ EXECUTE card in the 
object deck so that GELOAD will encounter it prior to loading the I-D-S 
subroutines from the library. Refer to the GE-600 Line General Loader 
Reference Manual, CPB-1008. 


The value supplied for /n/ must be large enough to contain the working 
area plus at least three page buffers. The following formula may be used 
to determine the total space required. 


(NF*10) + 10 + ((MP + 21)*NB) + NO +(I + 3) 


where NF is the number of files allocated 
MP is maximum page size allocated in words 
*NB is number of page buffers 
I is maximum sector size for files containing 
inventory. (For DSU200, I = 40; for all other 
mass storage devices I = 64.) 
*NO is number of page buffers which overlay .QOPEN. 


*The total number of buffers (TB) must be at least three. TB = NB+NO, 
where NO is determined by the following formula: 


NO = 816/(MP+20) 


13. 


When a sort iS included as part of an I-D-S activity, a S$ USE card must 
be used to constrain the work area of one of the systems. If this is not 
done, both systems will compete for the area not assigned to other 
program segments. 


A sample deck setup for an I-D-S sort using disc sort and temporary 
I-D-S files follows. With this setup, the sort work area will be the 
core storage remaining from the $ LIMITS card after subtracting the user 
program size and the I-D-S page buffer size (.QAREA). 


1 8 16 

$ BENE | 

$ lUSE |:QMAX/1/,.QAREA/5000/, .QMIN/1/ 
$ loBJECT jUSERPROGRAM 

$ le XECUTE 

$ IKIMITS |10, 32K 

S iDISC ITF,D1S,10R 

S$ DISC IS1,X1R,5R 

$ DATA 22 

IDS (CREATE '!FC/TF/,BSSZ/100/,RNG/1,100/ 
$ IENDJOB 

*KKEOF | | 


Without a $ USE Card 


When the $ USE control card procedure is not used, the -QOPEN I-D=-S 
subroutine attempts to use the area in memory not assigned to other 
program segments. The size of this available area is inserted in word 
37(8) of the slave program prefix by GELOAD during the loading process. 
As in the procedure above, the available area is divided into a work 
area and some number of buffers, depending on the size of the area. A 
minimum of three buffers must be established or the slave program will 
be terminated. The .QOPEN subroutine modifies the content of word 37(8) 
to reflect the usage of this area. 


When the file is opened, the size of .QAREA is determined and then used 
in the following manner (see Figure 28): 


1. Slave I-D-S Control Table - this table consists of 10 control 
words plus 10 words for each I-D-S subfile (temporary or 
permanent) assigned to the activity. 


2. Inventory Record Buffer - this area is equal to three words 
more than the largest inventory sector allocated. 


3. Page Buffer Activity Table - this table contains one word for 
each page buffer. 
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Data Page Buffers - these buffers are equal to the page size of 
the largest page allocated plus 20 decimal words. 


The first inventory buffer exists as defined in Figure 28. The 
other inventory buffers and their headers are generated by 
-QOPEN and overlay the code in .QOPEN that may be executed only 
once. As many buffers exist as will fit in the overlay area. 


Total Control Work Area 


Length of either 
»QAREA or an open 
area from 379 


Largest page 
size plus 
Header 


Figure 28. Labeled Common .QAREA 
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SLAVE I-D-S CONTROL TABLE 


Figure 29 shows a Slave I-D-S Control Table used by the I-D-S 
subroutines to honor the attributes of an I-D-S data file. Each subfile 
may be different, such as page size and percent of page fill for 
inventory. The I-D-S subroutines use a common GEFRC file control block 
to do all I-D-S data page and inventory page I/O on the mass storage. To 
accomplish this, the file control block control information is kept in 
the SICT Table for each unique file. It is then placed into the file 
control block when an I/O request for a page is needed. The total length 
of the table is dependent on the number of files allocated. 


Bits 0 1718 35 


Word 0| Pointer to Current Entry aa ae 
Maximum Page Size 


1 
2 
3 


Lowest Page Number Highest Page Number 
Maximum Inventory Sector Page Buffer Size 


5 


rnucero (18-95) 


Figure 29. Slave I-D-S Control Table 


sg iF esa Ite teres, ee 


8 
9 


Saar Sa Control Batty —o 


154 


The description of the Slave I-D-S Control Table (SICT) follows. 


Total Control Entry 


Word 0 
bits 
0-17 


18-35 


Word 1 
bits 
0-17 


18-35 


Word 2 
bits 
0-17 


L8=35 


Word 3 
bits 
0-17 


18-35 


Word 4 
through 
Word 8 


Word 9 
bits 
0-17 


18-35 


Pointer to current entry - the address of the SICT table entry 
which contains the relative block address of the page number 
last requested via the I-D-S mapping subroutine. 


Must be zero. 


Maximum page size - the value in words of the 
size allocated. 


largest page 


Base size - the total number of pages in the I-D-S data file. 


Lowest page number - the lowest page number allocated. 


Highest page number - the highest page number allocated. Must 
be less than or equal to the value in the base size. 
Maximum inventory sector - the size in words of the largest 


inventory sector allocated. 


Page buffer size - the maximum page size plus 20 decimal to 


include the page header area. 


Must be zero. 


Must be zero. 


Count of entries - the number of subfiles allocated to form 


this I-D-S data file. 


13: 


Individual 


Word fe) 


bits 
0-17 


18-35 


Word 1 
bits 
0-17 


18-35 


Word 2 


bits 
0-17 


18-35 


Word 3 
bits 
0-17 


3-35 


Word 4 
bits 
0-17 


18-35 
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File Entries 


RANGE Rl - the lowest page number assigned to the subfile. 


RANGE R2 - the highest page number assigned to the subfile. R2 
must be greater than or equal to Rl. 


Inventory write counter - a counter for the number of times an 
inventory record has been written to the file. 


Page size - the page size in words defined for the file. The 
page size must be greater than or equal to 40 and less than or 
equal to 640. 


Pages/page No. - the number of pages as developed by dividing 
63 by the number of lines per page. 


Lines per page - the number of lines that may be used in any 
page or pagette. 


RBA of current inventory - the Relative Block Address (RBA) of 
the current inventory record. Inventory records are physically 
stored beginning in the first sector, following the last data 
page of the file. 


Inventory percent fill - the number of characters that may be 
placed in a page of this file before the inventory adjustment 
routines are called. If the value is negative (bit 18=1), 


there are no inventory records, therefore, there is no 
inventory processing. 


Inventory read counter - a counter for the number of times an 
inventory record has been read from this file. 


RBA current page - the Relative Block Address of the last page 
number accessed in this subfile. 


Word 5 
bits 
0-17 


I8=35 


Word 6 
bits 
0-17 


18-35 


Word 7 
bits 
0-17 


18-35 


Word 8 
bits 
0-17 


18=35 


Word 9 
bits 
0-17 


18-35 


Sectors/Page - the number of sectors within a page. The size 
is calculated by dividing sector size of the mass_ storage 
device into the page size. 


Sector size - the sector size of the hardware device of this 
file. 


Gross write counter - a counter for the number of times data 
pages or inventory records have been written to the file. 


Gross read counter - counter for the number of times data 
pages or inventory records have been read from the file. 


Base RBA of inventory - relative block address of the 
beginning of inventory for the file. 


FILCB+0 - contents of the GEFRC file control block. 


FILCB-5 (18-35) - contents of the GEFRC file control block. 


FILCB-1 (18-35) - contents of the GEFRC file control block. 


Access mode - the access permissions requested from _ the 
PRMFL card for this file or the permissions granted for the 
DISC or the $ MASS control card for this file. 


WN 


Bits 0 READ (RETRIEVE) 
1 WRITE (UPDATE) 
2 Not used by I-D-S 
3. RECOVERY 
4-17 Not used by I-D-S 


FILCB-4 (24-35) - file code for the file. 
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1!-D-S INVENTORY RECORDS 


To minimize mass storage seek and transfer time, a number of inventory 
records are maintained in numerous buffers in memory. 


Buffer Format 


The I-D-S inventory record buffer format is shown in Figure 30. 


Bits 0 1112 1718 
Word 0] Pointer to Next Buffer Buffer Number 
Inventory 1) Ba 2 ES Reference Code 
Header 


Work Area 2 


| mp2 [nding Reference Code 
| 2 


y, 
Beginning Page No. RY Record Type Begin Line No. 


Inventory 
Record Area n | wpe fading Reference Code 
Through 


Space Available 


Figure 30. Inventory Record Buffer 


; 


A description of the Inventory Record buffer follows: 


INVENTORY RECORD WORD AREA 


Word 0 
bits 
0-17 Address of the next Inventory buffer header (this list is 
circular). 
18-35 The number of this buffer (starting at 0). 
Word l 
bits 
0-11 Must be zero. 
12-35 The beginning reference code of the Inventory record in _ the 


buffer. 


Bits 12 - 29 Page number 
30 - 35 Line number 
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Word 2 


bits 
0-11 Must be zero. 
12-35 The ending reference code of the Inventory record in the 
buffer. 
Bits 12 - 29 Page number 
30 - 35 Line number 
Word 3 
through 
word n Inventory record area. 


Buffer Strategy for Inventory Buffer 


If the inventory is needed for a page and the inventory record is not in 
memory, it is read into the inventory buffer defined as empty; and words 
1 and 2 of the buffer header are updated. 


The next inventory buffer as defined by word 0 of the header is’ then 
established as the empty buffer. Its contents are written back to the 
data file if the contents have been altered. 


Record Description 


Inventory records are physically stored at the end of the file for the 
page-range specified. They are record type 1002(10). The Inventory 
record size is equal to the sector size of the device on which it is 
stored. Thus the number of pages covered by one Inventory record is 
variable; it is equal to 3 x (sector size-2). On a DSU204 one link holds 
inventory for 10,944 pages; on a DSU270 or a DSU167 one tJlink holds 
inventory for 11,160 pages. 


The initial inventory of space available will be the page size (in 
characters) less the space occupied by the Page Header record (22 
characters). 
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The Inventory record format is shown in Figure 31. 


Must-Write Switch 


> MBZ 


Bits 0 1112 17181920 2930 35 


/ 
Word O| Beginning Page Number KY Record Type 
UY, Line No. 
Space Available 


Figure 31. Inventory Record 


The bit configuration for an Inventory record follows: 


Word 0 
bits 
0-17 Beginning page number that is contained in the Inventory 
record. 
18 Must-Write switch - an indicator used by I-D-S subroutines 
determine if this record has been modified since retrieval. 
19 Must be zero. 
20=29 Record type - a value of 1002 (10) assigned to each Inventory 
record. 
30-35 Beginning line number of the beginning page for this Inventory 
record. 
Word 1 
bits 
O-1l Must be zero. 
12-35 Ending Reference Code that is contained in this’ Inventory 
record. 
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Bits 12 - 29 Page number 
Bits 30 - 35 Line number 


Word 2 


bits 
0-11 Space available in characters for the Reference Code contained 
in word 0, bits 0-17 and 30-35. 
12-23 Space available for the next ascending page (this may be a 
pagette). 
24-35 Space available for the next page. 


Word 2 is repeated for consecutive pages until bits 24-35 of 
word n is the space, in characters, available in the page 
defined by the ending reference code (bits 12-35 of word 1). 


I-D-S DATA PAGES 


To minimize mass storage seek and transfer time, a number of data pages 
are maintained in numerous buffers in memory. The number of buffers 
depends on the amount of space available in .QAREA after loading the 
program. 


The greater the number of data pages kept in memory, the greater the 
possibility that the one needed next will already be there. To further 
improve the possibility of finding the page desired in memory, the I-D-S 
subroutines keep track of page utilization (record activity) and hold 
the most recently active pages in memory. Pages infrequently accessed 
are retired from memory as others are called in. The I-D-S_ subroutines 
note which pages have been modified and only the modified pages are 
written back to mass storage. 


Buffer Format 


The I-D-S page buffer format is shown in Figure 32. 


The description of the Data Page Buffer follows. 
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Word 0 
bits 
0-17 


18-35 


Word 1 
bits 
0-11 


12=35 


Word 2 
bits 
0-11 


12=35 


Word 3 
bits 
0-23 


24-35 
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Pointer to the next buffer. This will be zero in the last 


buffer. 


Buffer number - the number of the buffer beginning with zero. 


Must be zero. 


The beginning reference code of the I-D-S data page in the 


buffer. 


Bits 12 - 29 Page number 
30 - 35 Line number 


Must be zero. 


The ending reference code of the I-D-S data page in the 


buffer. 


Bits 12 - 29 Page number 
30 - 35 Line number 


Must be zero. 


Character space available in the I-D-S data 
from the mass storage device. 


page when read 


1112 17181920 2324 2627 2930 35 


56 
Word 0] Pointer to Next Buffer 
es 
ee ce 
Space Available 


Page 
Header 
Work 
Area 


Work Area for GEFRC I/O Control 


Job Number 
MBZ jouer * MBZ Activity Number 
Record Type y 
Lines/pg. for B/A Page Image Sequence Number 


I-D-S Data File Name 


Journal 13 


CALC Chain NEXT Space Available 


Available Line Number Flags 
ee 


Figure 32. Data Page Buffer 
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Word 4 
bits 
0-35 


Word 5 
through 
Word 7 


Word 8 
through 
Word 10 


Word ll 
bits 
0-17 


18-35 


Word 12 
bits 
0-35 


Word 13 
bits 
0-35 


Word 14 
bits 
0-35 


Word 15 
bits 
0-35 
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Available line flag indicator of the I-D-S data page when read 
from the mass storage device. 


= 0 line flags available 
# 0 line flags not available 


Must be zero. 


JOURNAL TAPE CONTROL AREA 


Work area for GEFRC I/O control - contains an I/O 
word, Block Serial number and Record Control word. 


control 


Contains the number of words in the record when written to the 
journal tape. 


Contains the value 13(8) to define the accounting record type. 


Checksum - all words (other than the checksum word) in the 
record. 
Job number - the five character SNUMB for the job, left 


justified and followed by an ignore character. 


Start date - month, day, year the activity started, in BCD 
format (MMDDYY). 

Start time - time the activity started expressed in hours, 
decimal point, and thousandths of an hour in BCD format 


(HH. TET). 


Word 16 
bits 
0-5 


6-11 


12-26 


21=39 


Word 17 
bits 
0-17 


L8=35 


Word 18 
through 
Word 19 
bits 
0-35 


Word 20 
through 
Word n 


Must be zero. 
A l-character BCD field that defines the journal record type. 


Type 5 
Type 6 


Before Page Image (BEFORE) 
After Page Image (AFTER) 


Must be zero. 


Activity number - a 9-bit binary job activity number. 


Lines per page for the Before/After Page Image. 


BEFORE records 
AFTER records are 


Sequence number - a binary sequence number. 
are incremented by 1, starting with 1. 
decremented by 1, starting with -l. 


I-b-S Data File Name - a l2-character name left justified. 


I-D-S DATA PAGE AREA 


The area which contains the I-D-S data page when read from the 
mass storage device. 


165 


Buffer Strategy for Page Buffers 


Each time a page is brought into memory its buffer number is placed at 
the head of a buffer table. If a page already in memory is used again, 
its buffer number moves to the head of the table. Thus, the most 
frequently used pages are at the top of the table and the pages with 
little or no recent use are at the bottom of the table. Buffer space is 
always available for reading a data page. To make a buffer available, 
the page at the bottom of the list is written back to the mass_ storage 
device, provided there has been activity updating that page. This buffer 
is called the EMPTY buffer; it is the buffer with lowest activity. 


The order of the chain is defined in an Page Buffer Activity Table 
(Figure 33) which contains one word for each page buffer in .QAREA. The 
activity chain shown in Figure 34 is a closed circular loop of buffer 
numbers. . 


There is always an EMPTY buffer whose NEXT is the buffer of highest 
activity. 


The PRIOR of the buffer of highest activity is the EMPTY buffer. 


The other buffers in the Page Buffer Activity Table have, in the PRIOR 
column (bits 0-17), the buffer number of the next higher (more recent) 
activity. The NEXT column (bits 18-35) contains the buffer number of the 
next lower (less recent) activity. 


For example, if buffer 5 is the EMPTY buffer, then buffer 4 is the most 
active buffer. 


Buffer 
Number 


0 
1 
2 
3 
4 
5 


Figure 33. Page Buffer Activity Table 
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Decreasing 
Activity 


Figure 34. Chain Concept of Buffer Activity 


Page Description 
There are two types of I-D-S data pages: 


Base Page 
I-D-S Pagette 


The I-D-S data page consists of a fixed size which is assigned when the 
I-D-S file is created. It may contain any combination of logical record 
types linked into their respective chains. Each type has its own 
specific length. Related record types are associated and linked 
according to their data content and may be stored within the same page. 
Space is fully utilized by packing these records within the page. 


Every page begins with a unique Page Header record. This record contains 
several control fields used by the I-D-S subroutines, as follows: 

1. Reference address of the page (page number). 

2. Space available for additional records. 


3. I/O control indicating whether the page has been altered since 
retrieval. 


4. Chain field indicating reference code of the first record of a 
chain of calculated records, all of which randomize to this 


page. 


5. Line numbers available for assignment within the page. 
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Base Page. The format of the Base Page Header record is shown in Figure 
35 


Must-Write Switch 
(bit 18) 


Before-Image Switch 
(bit 19) 


Characters 0 


Word 0 Reference Code ! Record 
Page Number | Type 


CALC Chain : Space 
NEXT Link | Available 


Bits 22-23 


Figure 35. Base Page Header Record 
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The bit configuration for the Base Page Header record follows: 


Word 0 


bits 
0-17 


18 


19 


20229 


30-35 


Word 1 


bits 
0-17 


18-29 


30=35 


Word 2 


bits 
0-35 


Reference code page number - a number from 1 through 262,143. 
During file initialization, each page requested by the user is 
assigned a unique number within this range. 


Must-Write switch - an indicator used by I-D-S to determine if 
a page has been altered since retrieval. 


Before-Image switch - an indicator used by I-D-S to indicate 
that a page to be modified has been written to the journal 
tape prior to the modification. 


Record type - a code of 1000(10) assigned to each Page Header 
record. 


First character of the CALC chain NEXT Link - a pointer to the 
first CALC record contained in the chain. If no CALC’ records 
are present, it points to itself. (The Page Header record is 
the defined master of the CALC chain.) 


CALC Chain NEXT Link 


Space available - current status of available space for 
storing records within a page. 


Available line number flags (0-5) - an indicator used by I-D-S 
to determine line numbers available for assignment within a 


page: 


line number available 
line number not available 


0 
aL 


There are 64 line number flags. They are numbered left to 
right starting with zero. Line number 0 is always used; it is 
line number of the Page Header record. A maximum of 63 data 
records can be stored to a page. 


Available line number flags (6-41) 


169 


bits 
0=21 Available line number flags (42-63). 

22-23 Must be zero. 
End of Page Header record. The length of the record is 22 
characters. 

24-35 

through 

word n Bits 24-35 of word 3 through bit 35 of word n contain data 


records. 


Pagette. A pagette is introduced by setting the value of lines per page 
to less than 63. By dividing the lines per page into 63, the number of 
pages required to hold 63 line flags is developed. The first of these 
pages is called the BASE page. It contains a Page Header record (type 
1000 decimal) which is the master record of the CALC chain for this page 
number. The remaining pages are called PAGETTES. They contain a Pagette 
Header record (type 1003 decimal). They are not the master of any chain. 


The available line number flags begin in the base page. For example, if 
the lines per page equal 21, this would require (63/21=3) pages to hold 
the 63 line number flags. Pages will have the line number flags set off 
for line numbers not allowed in the page. Thus, a base page will have 
line number flags as follows: 


1 - 21 Available 
22 - 63 Not available 


Pagette number 1 will have: 


1 =- 21 Not available 
22 - 42 Available 
43 - 63 Not available 


Pagette number 2 will have: 


1 - 42 Not available 
43 - 63 Available 
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The pagette allows users to increase the number of reference codes in 
their I-D-S data file. This facility is probably most useful on _ some 
portion of the total file that has been filled by large records. 


For example, let record size be equal to the available space in a page 
such that one logical record fills a page. This record may be a 
dictionary record. When this record is stored the user eliminates 62 
available reference codes. Thus, if several records are stored, several 
hundred potential reference codes are eliminated. 


The user may choose to increase the page size such that several large 
records may fit into a single page, but practical limits on page _ size 
must be observed. Thus, the next approach may be to limit the lines per 
page, making available all 63 lines (reference codes) for each page. 


The Pagette Header record format is shown in Figure 36. 
Must-Write Switch 
Before-Image Switch 


Bits 1112 1718192021222324 2930 35 


lst Character 
Word O]| Reference Code Page Number Aa Record Type of Page No. 
l Last 2 Characters Beginning Character Space 
of Page Number Line Number |Available 


2 Available Line Number Flags 


3 Fal Begin Data Record Area 


Figure 36. Pagette Header Record 


The bit configuration for the Pagette Header record follows: 


Word 0 
bits 
0-17 Reference code pagette number - a number from 1 through 
262,143. During initialization, each pagette is assigned a 
unique number within this range. 
18 Must-Write switch - an indicator used by the I-D-S subroutines 


to determine if a pagette has been modified since retrieval. 
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ad 
WO 


20-29 


30-35 


Word l 
bits 
0-11 


12-17 


1L8=29 


30-35 


Word 2 
bits 
0-35 


Word 3 
bits 
0-21 


22-23 


24-35 
through 
word n 
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Before-Image switch - an indic 
subroutines to indicate that a paget 
journal tape prior to modification. 


te has been written to the 


Record type - a value of 1003 (10) assigned to each Pagette 
Header record. 


First character of the pagette number, which forms’ the 
beginning reference code. 


Last two characters of the pagette number, which forms’ the 
beginning reference code. 


Beginning line number of pagette - first available line number 
that may be placed in the pagette. 


Space available - characters of available space for storing 
records within the pagette. 


Available line number flags (0 through 5) - an indicator used 
by I-D-S to determine which line numbers are available for 
assignment within a pagette: 


0 
un 


line number available 
line number not available 


There are 64 line number flags. They are numbered left to 
right starting with 0. Line number 0 is always used; it is the 
number of the Pagette Header record. 


Available line number flags (6-41) 


Available line number flags (42-63) 
Must be zero. 


End of Pagette Header record. The length of the record is 22 
characters. 


Bits 24-35 of word 3 through bit 35 of word n contain data 
records. 


I-D-S DATA RECORDS 


Data records of I-D-S are fixed-format, fixed-length; that is, the 
length and format of a specific type of record, such as _ payroll or 
inventory, are fixed by the specifications of the systems designer. 
Records of many different types, each with its own length and format, 
may be used in the system. To maintain control, each record must have 
the same identification fields at the beginning. These fields are (1) 
line number portion of the reference code, (2) record type and (3) 
record length. The rest of the record consists of data and chain fields 
to suit the application requirements. 


Records may have any number of data fields, each defined as some number 
of decimal, alphabetic or alphanumeric characters. Fields may vary in 
size from one character to many characters, as for a drawing or part 
number or an employee's name. These fields must be specified by the 
systems designer. 


The format of the data record is shown in Figure 37. 


aoa Delete Switch 


Bits 0 56 1718 2324 2930 


etx he eas A 
CALC Chain NEXT Begin Data Fields 


— 
—_—— 
— << 
—_—_ — 
—ia 
-_— ——  —_—_ = 
_—_ 
—_ —_— 
—_—_—_— 
— —_ 


Chain Pointer Reference Code PY 


Figure 37. Data Record 


Word 0O 


i Bg Be 


The bit configuration for a data record follows: 


Word 0O 
bits 
0-5 


18-29 


30-35 and 
Word 1 
bits 

0-17 


18-35 
through 
word n 


Word n 
bits 
0-23 
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Line number - a number from 1 to 63. A unique number is 
assigned to each data record as it is stored in a page. This 
number combined with the page number from the Page Header 
record completes the reference code. 


Delete switch - an indicator used by the I-D-S subroutines to 
recognize a record that is logically but not physically 
deleted. When all chain pointers in a record are equal to 
zero, the record will then be physically deleted and its’ line 
number wi’.l be made available for use in the page. 


Record type - a unique number from 1 to 999 used to identify 
different kinds of data records. The numbers 1000 and greater 
are reserved for use by I-D-S. 


Record size - the number of characters in the record including 
all control fields, data fields and chain pointers. The line 
number is character 1 of a record. 


CALC chain NEXT - the reference code of the NEXT record in the 
CALC chain. If this is the last record in the CALC chain, it 
will contain a reference code of the Page Header record which 
is the master of this CALC chain. The chain pointer defined as 
detail of CALC chains. All other records do not contain this 
pointer and the data begins in this area. 


Bits 30-35 and 


Q=-11 Page number 
12-17 Line number 


Beginning of available space for data characters. The data may 
be n characters in length. 


The Chain pointers begin in the character position immediately 
following the last data character. 


The chain pointer reference code is 24 bits in length. 


Bits 0-17 Page number 
18-23 Line number 


There may not be any chain pointers in the record if it is not a member 
of any chain, such as a Primary record; or the only pointer may be the 
CALC chain NEXT. The presence of chain pointers is dependent on _ the 
description of the I-D-S record. The type of chain pointer, NEXT, PRIOR, 
HEAD, and the chain it is pointer for is described in the definition 
structure associated with this record type. 
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8. I-D-S Utility Programs and Subroutines 


The following I-D-S utility programs and utility subroutines are 
described in this chapter: 


Programs : 


Randomizing Analyzer/Calc Pre-Load Sort Utility Program (QUTC) 
Storage Tape Dump/Print Routine (QUTD) 

Page Initialize Utility Routine (QUTI) 

Journal Tape Dump (QUTJ) 

Data Base Load/Print Utility Routine (QUTL) 

Journal Record Selector (QUTP) 

Execution Information Report (QUTR) 

Selected Record Sort (QUTS) 

File Utility (QUTU) 


Subroutines: 


Directive Processor (.QDIR) 
Trace and Print Record (.QSTC) 
Verify and Print (.QUTF) 


I-D-S execution activities may require that permanent, temporary, or a 
mixture of an I-D-S data file be used. The following examples of deck 
setups may be applied to all I-D-S utility programs and subroutines’ and 
user execute activities. 


PERMANENT I-D-S DATA FILE 


The following deck setup is for a permanent I-D-S data file. 


177 


1 


8 


Ep 


| H ! 

| 
$ JIDENT iIDS00 ,DATABASEMGR, PERM IDS FILE 
$ lUSERTD IT DSFOURYQUADS DATABASE 


ANN 1H 


$ 


a 
| ° 
IPRMF L 
jPRMFL 
IPRMFL 


asus 
I e 

| e 
jENDJOB 


*e*EOE | 


! 
| 1,R/W,R,IDSFOURYQUAD/QUADO1 

2,R/W,R, I DSFOURYQUAD/QUAD02 
IA3,R/W,R, LIDSFOURYQUAD/QUAD03 


lad, R/W,R, IDSFOURYQUAD/QUADO 4 


TEMPORARY |-D-S DATA FILE 


The following deck setup is for a temporary I-D-S data file. 


Hm MOM NH 


$ 
xkKEOF | 


1 
IDENT 


— 
MASS 
|DISC 
jDRUM 
IMASS 
IDATA 
ICREATE 


CREATE 


|CREATE 
j|CREATE 
|DATA 

} oo. 

} . 
IENDJOB 


16 


\IDS00 ,DATABASEMGR, TEMP IDS FILE 


l 

l 

|Al,X1S,13R 

|A2,X2S,11R 

1A3,X3S,11R 

\A4,X4S,11R 

1-Q 

IFC/A1/,BASESIZE/480/,RANGE/1,120/, 

| PAGESI ZE/160/,LINESPERPAGE/32/, 

| INVENTORY /25/ 

l?C/A2/,BSSZ /480/,RNG/121,240/,PGSZ/320/ 
lpC/A3/, RNG/241, 360/ 

IFC/A4/ ,RNG/361, 480/,PAGESIZE/64/,LPP/15/ 
[* 


TEMPORARY AND PERMANENT I-D-S DATA FILE 


The following deck setup is for a mixed temporary 
data file. 
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and permanent 


i=D-S 


The permanent I-D-S data file attributes were supplied when the file was 
created; the temporary attributes must agree with the permanent 
attributes. 


ITDENT ItDS00 ,DATABASEMGR, MIXED IDS FILE 


IUSERID ITDSFOURYQUAD $DATABASE 

| 7 

be 

|PRMF 1 ,R/W, R, IDSFOURYQUAD /QUADO1 

MASS 2,X2S,11R 

jDISC A3,X3S,11R 

|PRMFL Ina, R/W,R, IDSFOURYQUAD /QUAD0 4 

DATA IQ 
DS ICREATE C/A2/,BSSZ/480/,RNG/121,240/,PGSZ/320/ 
DS ICREATE C/A3/,RNG/241,360/ 

DATA \L* 

| e 

lENDJOB 


| 

$ | 

k**EOF | 
UTILITY PROGRAM AND SUBROUTINE DESCRIPTIONS 


Descriptions of the I-D-S utility programs and utility subroutines are 
presented on the following pages. 
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Randomizing Analyzer/CALC Pre-Load Sort Utility Program (QUTC) 


The QUTC utility program performs two distinct functions depending u 
the directive option chosen. 


1. The ANAL option utilizes the user supplied directive cards to 
generate numbers which are randomized to produce base page 
numbers and the total number of times each base page number is 
returned by the CALC routine. This information is printed on 
the Base Page Report. In addition, should the page number occur 
more than 63 (maximum lines per page) times, or any smaller 
number supplied by the user, this and the page number of the 
first page having space available will be indicated on _ the 
Overflow Report. 


2. The RAND or RANDA option is used to sort CALC records into base 
page sequence prior to loading the data base. The user's input 
file must contain only one record type and must be in = system 
standard format. A minimum of one control field for randomizing 
must be specified and a maximum of three control fields may be 
specified. These control fields must appear on the directive 
card in the order in which randomization is to be performed. 


The total number of records randomizing to each page is accumulated and 
printed on the Base Page Report. In addition, a control for overflow is 
maintained which forces all overflow records to be sorted to the end of 
the file. The page which has overflow and the first page with space 
available is indicated on the Overflow Report. 


Printing of these two reports may be suppressed by use of the RAND 
option. 


Directive 


General Format: 


| 

lopTION IGENERATE/,OPTION/, 
|ETC |\CONTROL/OPTION/, 
|ETC \CONTROL/OPTION/, 
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ANAL OPTION 


This option generates page numbers based on control parameters explained 
below. 


INPUT: 
Directive cards 


OUTPUT: 
IDS BASE PAGE REPORT 
IDS OVERFLOW REPORT 
Control for ANAL option on directive card: 
RNG/P1,P2/ Specifies the page range to be analyzed. 


MAX/nn...n/ Specifies the largest number to be randomized. 


INCR/nn ss <n/ Specifies the increment to be added for each iteration. 


FILL/nn/ Specifies the point at which the page will be considered 
full. 
Example: 
ai 8 16 


| 
I I 
IDS OPTION IGENERATE/,ANAL/, 


IETC IRNG/1,100000/,MAX/50000/, 
ETC IINCR/2/,FILL/32/ 


RANDA OPTION 


This option takes a user's file of CALC records, randomizes on specified 
control fields, producing a base page number, sorts the file into page 
number sequence with all overflow records sorted to the end of the file 
and produces two reports. 


INPUT: 
USER's CALC file 
Directive cards 


OUTPUT: 
Sorted CALC file 
IDS BASE PAGE REPORT 
IDS OVERFLOW REPORT 
Control for RANDA option on directive card: 


RNG/P1,P2/ Specifies the page range into which records are to be 
stored. 


Lei 


Fe 
t 
e+ 


CF/C1,L1i/ Specifies fields to be used for randomizing. 


Cl reflects the beginning character of the field relative 
to one. 


Ll reflects the lengths in characters of the control field. 


A minimum of one control field must be specified anda 
maximum of three may be given. 


FILL/nn/ Specifies the point at which a page will be considered 
full. If this parameter is not supplied 63 records per page 
is assumed. 


Example: 


L 8 16 
j 7 


IDS jOPTION |GENERATE/, RANDA/,RNG/500,1000/, 
|ETC ICF/2,6/,CF/20.,5/,CF/10,2/, 
|ETC IPFILL/63/ 


RAND OPTION 


This option has the same effect as the RANDA option with the exception 
that no reports are produced. 


Example: 
a 8 16 
! 
I 
IDS {OPTION IGENERATE/,RAND/,RNG/10,200/, 


ETC ICF/8,10/,FILL/8/ 


Directive Restrictions 
l. Directives are examined to ensure that columns 1-3 contain IDS, 
that columns 8-13 contain OPTION and that the first parameter 
in the variable field is GENERATE. 


2. All control parameters are required with the exception of FILL. 
This is assumed to be 63 when not specified. 
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Operation 


1. 


kkk 


** 


KKK 


Deck Setup for RANDA Option: 


IDENT IVPAO00 , YOUNGMAN , K72 
| 

PROGRAM JQUTI Activity l. 
MASS |A1l,D1S,10R 
IDATA me) 

DS ICREATE |FC/Al1/,BSSZ/100/,RNG/1,100/ 
{DATA \I* 

DS [INITIAL 1,100 

| 

DROGRAM jQUTC AGCIVILEY: 2s 
LIMITS |10,26K,, 
IMASS |A1l,A1R,25L (Work file) 
IMASS |B1,B1R,25L (Work file) 
ITAPE |T1,T1D,,1234,,USER-IN (User's input file) 
ITAPE jCl,C1D,,,,USER-SORTED (User's output file) 
|MASS S1,S1R,10R (Sort work file) 
MASS jD1,D1R,10R (Work IDS file) 
jSxSOuT [PL (Report file) 
DATA j-Q 

bs ICREATE —PC/D1/, BSSZ/100/, RNG/1,100/ 
IDATA ir* 

TDS JOPTION (GENERATE/, RANDA/, RNG/1,30000/, 

bs ETC EAA OL RLS 097 EAT O pak REEL LO3/ 
ENDJOB | 


The required file codes are Al and Dl respectively. The file code 
Al on LUD DIS in activity 1 is used as file code Dl on LUD DIR in 
activity 2. This file must be mass storage. 


The required file codes are as defined in the example. Tape or mass 
storage are acceptable as file types. 


The BASESIZE and RANGE for the work I-D-S file may be computed in 
the following manner using the RANGE from the OPTION directive: 


((maximum range - minimum range)+1) /300=BSSZ 
((30000 -1)+1) /300=100 


The PAGESIZE for this file must be 320 words and the LINES per page 
must be 63. 
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x*K*K 


KK 


3a 3S 
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1 8 16 
| | 
$ IIDENT WTAOO , YOUNGMAN ,K72 
$ IpROGRAM = guri Activity l. 
$ |MASS IA1,D1S,10R 
S \DATA 22 
IDS |CREATE FC/AI/,BSSZ/100/,RNG/1,100/ 
$ |DATA ae 
IDS JINITIAL 1, 100 
| 
$ {PROGRAM joure Activity 2. 
$ {LIMITS \10 ,26K 
$ |IMASS Al, ALR, 25L (Work file) 
S |MASS 1B1,B1R,25L (Work file) 
$ [MASS js1,S1R,10R (Sort work file) 
S MASS \D1,D1R,10R (Work I-D-S file) 
$ SYSOUT |P1 (Report file) 
$ |DATA 1-Q 
IDS |\CREATE |FC/D1/ ,BSSZ/100/,RNG/1,100/ 
$ jDATA \I* 
IDS |OPTION |GENERATE/,ANAL/,RNG/1,30000/, 
IDS ETC INCR/1/ ,FILL/63/,MAX/100000/ 
S |ENDJOB 
** *EOF | | 


Same as for RANDA Option. 
Same as for RANDA Option. 


Same as for RANDA Option. 


ubroutines Called: 


-QOPEN - opens mass storage device files and builds’ tables 
describe them. 

-QDIR - reads directives. 

~-QMEX - writes messages on the execution report. 

-QSFD - advances subfields of the variable field of directive 
processing. 

-QCALC - computes a base page number. 


to 


for 


PAGE NUMRF 2 


S8T 


N? OF RECOPDS 


aDrN xen fv dN DW NN FN NSU TE DMNN MEH NDAW AN VED 


IDS RASF PAGE REPORT 
PAGE NUMBER NR OF RECORDS 


N Sa] 
N Q 
hh pe 
DOIDHEHVENOWNAN STE INF NOV N FE NDNDDWNDNUODN FM 


PAGE NUMBER 


PAGE 001 
NR OF RECORDS 


iy 
ADDN EF ENNWTWN DOU MAMNFP NE NF UIRPNFWDOF WR NUE OD 
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IOS OVERFLOW REPORT PAGE 101 


RENCIMIZFON TO STOREN ON PANDOMIZED TO STOPED ON RANQOMIZEN TC STORED ON 
8 Q 8 9 8 9 

R aed 24 ae 24 25 

a6 af 36 ft 36 ae 

oe 77 48 49 KR 4Q 

ue 49 4B 50 57 8 

or eae 57 Ss 77 78 


77 7R 80 &1 80 &2 


QUTD 


Storage Tape Dump/Print Utility Routine (QUTD) 


QUTD dumps to tape and/or prints all or selected portions of the 
appropriate storage devices allocated to the I-D-S data file. The 
portions of the file to be processed and the output media are specified 
by input data cards (directives). 


Directives 


Directive fields begin in column 16 and are separated by commas. One or 
more ETC cards may be used to continue the fields if they run _ beyond 
column 72. Each card to be continued must end with a complete field, 
followed by a comma. 


There are four directives recognized by QUTD. 


1 8 16 
t 
IDS DUMP ey 


puke 


The DUMP directive causes pages Pl through P2 to be written on magnetic 
tape. If the variable field is null, all pages of the file are written 
on magnetic tape. The file code for the magnetic tape is OT. RNG/P1,P2/ 
is the only option valid for this directive. 


1 8 16 


I 
IRNG/P1,P2/,..., 
| Print option 


The PRINT directive causes Pl through P2 to be written in print format 
and directed to SYSOUT via file code P*. If RNG is not specified, all 
pages of the file are written. 


Print Options 


NULL Prints nonempty pages and indicates empty pages. 


EMPTY Prints nonempty pages and the page header for each 
empty page rather than indicating a succession of 
empty pages only by a first page entry and a last 
page entry. 
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TYPES/A,B;Cjse</ Prints only the record types specified by A,B,C, 
etc. (to a maximum of 10 types). 


DELETE Produces a fil a 
and record type of al 
present on th 


ning reference code, size 
records deleted but still 


kh fF: 


IDPRINT IRNG/P1,P2/,.../ 
PDUMP 


The DPRINT/PDUMP directive (either form is acceptable) causes pages Pl 
through P2 to be written on magnetic tape and to be sent to SYSOUT in 
print format, via file code P*. Either directive is a combination of the 
DUMP and PRINT directives. A null variable field causes all pages of the 
file to be written. All print options listed above are acceptable with 
either of these directives. 


au 8 


be 


6 

| 
TDS JEOR j(not examined) 
| | 


The EOR directive forces an end-of-reel condition on the magnetic tape 
file. 


PAGE: XXXXX XX ACTIVE PAGE SIZE: XXXX CH. 


WD: LN: TYPE: 


XXX XX XXXX OCTAL | OCTAL | 
OCTAL BCD 
ocTaL| [BCD 

XXX XX XXXX OCTAL BCD 


PAGE: XXXXX XX ACTIVE PAGE SIZE: XXXX CH. PAGE EMPTY 
AND ALL INTERVENING PAGES 


OCTAL BCD 


PAGE XXXXX XX ACTIVE PAGE SIZE: XXXX CH. PAGE EMPTY 
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Tape Format 


The data sent to the output tape file is written as variable length, 
logical records using the GEFRC subroutine PUT. The file is in standard 
system format with the exception of block size which is 1602 words. The 
Page Image record format is: 


Word Contents 
0 Accounting Record Header. The number of data words in the 
record is specified in bits 0-17. The record type, octal 


000013, is contained in bits 18-35. 


1 Checksum. 

2 SNUMB in bits 0-29. Ignore character (octal 17) in bits 30-35. 
3 Date as MMDDYY. 

4 Start time in hours and thousandths of hours as HH.TTT. 

5 Record type in bits 0-11 as 10. Bits 12-35 are presently 


unused and are zero. 


6 This word is presently unused and is zero. 

7 First six characters of user identification. 
8 Second six characters of user identification. 
9-n Active page image. 


Execution Report 


An execution report is produced as part of the user output. It 
describes, in chronological order, the functions performed as specified 
in the directives. In addition, error conditions are included to advise 
the user of exception conditions. 
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The following deck setups can be used to execute QUTD from the software 
library. 


1. Example for temporary files. 


1 8 16 
! | 
$ ITDENT l 
$ PROGRAM louTD 
$ ILIMITS lop TIONS 
5 IMASS la1,X1R,15R (required file code) 
$ ITAPE jOT,X2S,,,,DUMP-FILE (required file code) 
$ ITAPE DE,X3S,,,,DELETE-FILE (required file code) 
IDATA lo 
IDS ICREATE IPC /A1/ ,BSSZ/480/,RNG/1,120/, LPP /63/ 
$ IDATA IT x 
IDS IPDUMP IDELETE / 
$ JENDJOB l 
** XEOF | 


a. Pages 1 through 120 will be written to tape (file code OT). 


b. All nonempty pages will be printed on P* and all empty pages 
will be indicated with a beginning and ending page number. 


c. All records logically but not physically deleted from the file 
will be written to tape (file code DE) and flagged on the 
printed report. 
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2. Example for permanent files. 


an 8 16 
| ) 
$ ITDENT | 
S PROGRAM jQUTD 
LIMITS jOPTIONS 
S jUSERID | IDSFOURY QUAD $DBASE 
$ PRMFL |TF ,R/W,R, IDSFOURYQUAD$DBASE/QUAD01 
$ IPRMFL |TG ,R/W,R, LDSFOURYQUADS DBASE /QUAD02 
$ ITAPE loT,X2S,,,,DUMP-FILE 
$ IDATA \T* 
DS IDUMP IRNG/1,120/ 
DS IDPRINT EMPTY/,TYPES/100,101,102/ 
S (ENDJOB 


**kEOF | | 


This deck setup will result in the following: 


a. Pages 1 through 120 (file code TF) will be written to tape 
(file code OT). 


b. File code TG, in its entirety, will be written to tape. 


c. All page headers and all record types 100, 101 and 102 on file 
code TG will be printed. 
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QUTI 


Page Initialize Utility Routine (QUTI) 


QUTI initializes all or selected portions of the appropriate storage 
devices allocated to the I-D-S data file with the page headers’ and 
creates or updates the inventory records. The portions of the file to be 
processed are specified by an input data card (directive). The 
attributes of the file are acknowledged during the initialization 
process. 


Directives 
There are two directives recognized by .QUTI. 


1 8 16 
i i 


IDS INITIAL |P1,P2 
I } 


The initial directive causes pages Pl through P2 to be initialized 
with their page headers and the inventory records to be created as 
required. 


1 8 16 
| 

IDS IHEADER |P1,P2 
] ! 


The header directive causes pages Pl through P2 to be initialized 
with their page headers and the inventory records to be updated as 
required. This requires that the portion of the file must have been 
previously initialized by the initial directive. This directive 
allows a portion of the file to be purged and the inventory to be 
reset. 


Directive Restrictions 


1. The argument P2 must be greater than or equal to the argument 
Pl. 


2. Directives are examined to ensure that columns 8-13 contain a 
legal directive code as described. Directives in error are 
written on the execution report followed by appropriate 
comments. 
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Execution Report 

An execution report is produced as part of the user output. It 
describes, in chronological order, the functions performed as specified 
in the directives. In addition, error conditions are included to advise 
the user of exception conditions. 

Operation 


1. Deck setup. 


The following deck setup will initialize a permanent I-D-S data 
file. 


| 
iSNUMB 


$ louTI 

$ [IDENT ,IDS00,DATABASEMGR 

$ [USERID ,IDSFOURYQUAD$DATABASE 

$ [PROGRAM |QUTI 

S IPRMFL 1A1,R/W,R,IDSFOURYQUAD/QUADO1 
IDS IINITIAL 11,120 

S$ IENDJOB_ | 


**KEOF | | 


The following deck setup can be used to initialize a temporary 
I-D-S data file. 


1 8 16 
| 


l 
IsnuMB-sgurr 


$ 
S JIDENT ITDS00 , DATABASEMGR, TEMP FILE 
$ |PROGRAM 'QuTI 
S \"file" lor Al1,X1S,13R (Al is the required file code) 
$ DATA re) 
IDS |CREATE lFC/A1/,BSSZ/480/,RNG/1,120/,PGS2/192/, 
l | LPP/32/,INV/25/ 
DATA IT * 
IDS JINITIAL ]1,120 
S$ JENDJOB | 


** EOF | | 


2. Subroutines called. 
-QDIR - reads directives. 


-QMEX - writes messages on the execution report. 
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-QWAIT 


-QBCD 


-QMCH 


-QINVL 
~QWRIT 
~QPHI 


-QCLOS 


-QMAP 1 


moves blocks of words from one location in memory to 
another. 


Supplies a tallied I/O list for pages to be read from 
the mass storage device(s). 


advances subfields of the variable field of directive 
for processing. 


closes the directive file. 
establishes the file code (I*) for directives. 


opens the mass storage device file(s) and builds’ the 
tables that describe them. 


verifies that the requested pages are allocated and 
builds the tables, by device, for the required page 
ranges. 


points indirectly to the mass storage device file 
descriptions. 


contains table of FROM page ranges. 

contains table of TO page ranges. 

contains the number of entries, minus one, in .QTAB1/ 
:QTAB2. This count is in bits 0-17. Bits 18-35 are 


not examined. 


insures that all outstanding I/O on the mass_ storage 
device is completed. 


converts binary to BCD and replaces leading zeros 
with blanks. 


moves blocks of characters from one location in 
memory to another. 


updates inventory. 
performs buffered writing to the mass storage device. 
generates the page headers. 


closes the files and generates the I/O statistic 
report. 


calculates the relative sector. 


QUTI 


Journal Tape Dump Utility Program (QUTJ) 


QUTJ dumps selected portions of tapes in the standard I-D-S journal 
format. This includes tapes created by master mode or slave mode 
journalization, and tapes produced by either QUTU, QUTP, or QUTS. 
Directive 
One directive is recognized by the QUTJ program. 
1 8 16 
| 
IDS [SYSTEM 
| 
The SYSTEM directive causes only record types 3 and 4 (SLVBGN' and 
SLVEND) to be printed on the report. All other record types are 
ignored. 


Printer Format 


The record types recognized by QUTJ are printed in the format’ shown 
below. 


Slave Begin | Logical SLV BGN Date Time Record Sequence 12 Charac- Blank 
Record Type Word ter user 
Number ID 

Slave End Logical SLVEND AA-SSSSS Da Time Record 12 charac- Blank 
Record Type ter user 

ID 

BEFORE Image } Logical BEFORE Da Time Record Sequence 12 charac- Page 
Record Type Word ter user Number 
Number ID 

L : 


t 
Number 
ia 
AFTER Image Logical AFTER AA-SSSSS Dat Time Record Sequence 12 charac- Page 
Record Type Word ter user Number 
Number 
QUTU Image t 


QUTU AA-SSSSS Time Record Sequence Page 
Type Word Number 


e 
e 
e 
e 12 charac- 


ter user 
ID 


Logical 
Record 
Number 
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Column Description 


Column 2 


Column 5 


Column 6 


Column 8 


Column 10 
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Two asterisks appear in this column if the checksum of this 
record is in error. 


DATE is displayed in the form of MM-DD-YY. 
TIME is displayed as HH.TTT, hours and thousandths of hours. 


This word is the abort code for SLVEND records. A code of 00 
is used for end of activity and end of job. 


The SEQUENCE word is zero for all record types except BEFORE 
and AFTER. BEFORE page image records are incremented by 1, 
starting with 1 in bits 18-35. AFTER page image records are 
decremented by 1, starting with -l. 


The PAGE NUMBER is the first 18 bits of the first word of 
the page image followed by the line number. 


Execution Report 


QUTJ writes the printed output on the execution report via SYSOUT. 
input tape label is the first line of the report. 


Operation 


The following deck setup can be used to execute QUTJ. 


HE 8 16 
I 
$ [IDENT | 
Ss )PROGRAM ,QUTJ 
$ ILIMITS Options 
$ j TAPE jIN,Options (IN is required file code) 
$ ,ENDJOB | 
* 


**EOF |! 


Sample Output 


The following page illustrates the output format produced by QUTJ; 
input tape was a master mode journal tape. 


The 


the 
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GJNLA O14 


WOON AVI Sw 
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10°01-68 


11,092 


IDS UTILITY ROUTINE = 


SLVBGN 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
AFTER 

BEFORE 
SLVBGN 
AFTER 

BEFORE 
BEFORE 
AFTER 

BEFORE 
BEFORE 


1-TSTOS 
1-TSTO3 
1-TSTO3 
1-TSTO3 
1-TSTOS 
1-TSTO3 
4-TSTOS 
1-TSTOS 
1-TSTO3 
1-TSTO0S 
1-TSTO3 
1-TST0S 
1-TSTOS 
1-TSTO3 
1-TST03 
1-TSTOS 
1-TSTO3 
1-TSTOS 
1-TSTO3 
1-TSTOS 
1-TSTOS 
1-TsTo3 
1-TSTO3 
1-TSTO03 
1-TSTO3S 
1-TSTO3 
1-TSTOS 
1-TSTOS 
1-TSTQS 
1-TSTO03 
1-7STO3 
1-TSTos 
1-TSTOS 
1-TSTOS 
1-TSTOS 
i-TSTOS 
1-TSTo03 
1-TST3¢ 
4-TSTOS 
1-TSTO3 
4-TST3C 
1-TSTOS 
4-TSTO3 
1-TST3C 


a4NmAA eh 
aC Usa MY 


10"901-68 
10-01-68 
40-91-68 
4C=01-68 
10-01-68 
16-01-66 
10-01-68 
10-01-68 
1Ce01-68 
40-01-68 
16-01-68 
10-91-68 
10-01-68 
10-01-68 
10°91-68 
10-01-68 
40-01-68 
10-01-68 
10-91-68 
15"01-68 
40«01-48 
40991-68 
10-01-68 
10"91~68 
40+91=-68 
16-01-68 
16-01-68 
10°91-68 
10#01-68 
10°91=68 
1CaQgi-68 
46°01-68 
16-01-68 
10-91-68 
15701-68 
10°01-68 
10"o1-68 
10°91 768 
10#91~-68 
10-91-68 
10-01-68 
10701-6868 
10-91-68 
1070168 
10-01-68 
10791-68 
10"91~68 
10°01-68 
10-01-68 


IDS JOURNAL Tape REPORT 
1QUTWY = VERSION 


111037 
11,037 
11,037 
11,037 
11,037 
11,037 
11,037 
11.037 
11,037 
11,037 
11,037 
11,037 
11,037 
11,037 
11,0357 
11,037 
£1,937 
11,037 
11,037 
11,037 
11,037 
11,037 
11,037 
11,037 
11,037 
11,057 
11,037 
11,037 
11,037 
11,037 
£1.037 
11,037 
141037 
111037 
11+037 
£1,037 
11,037 
1114937 
411037 
11,037 
111937 
111,037 
11,037 
11,038 
114937 
11,037 
111038 
114037 
11.037 
11,038 


035 
050 
050 
050 
050 
050 
050 
050 
050 
050 
050 
050 
050 
050 
050 
050 
050 
060 
050 
060 
050 
060 
050 
060 
050 
060 
050 
060 
050 
060 
050 
060 
050 
060 
050 
060 
050 
069 
050 
060 
050 
060 
050 
030 
060 
050 
050 
060 
050 
050 


080168, 
0 {[DSFOURYGUAD 
1 JDSFOURYOQUAD 
2 IDSFOURYOQUAD 
3 IDSFOURYQUAD 
4 IDSFOURYQUAD 
5 JDSFOURYQUAD 
6 IDSFOURYQUAD 
7 JDSFOURYQUAD 
8 I1DSFOURYQUAD 
9 IDSFOURYQUAD 
10 IDSFOURYQUAD 
11 IDSFOURYQUAD 
42 [DSFOURYQUAD 
15 JDSFOURYQUAD 
14° IDSFOURYQUAD 
15 1DSFOURYQUAD 
46 IDSFOURYQUAD 
262142 IDSFOURYQUAD 
17 «=1DSFOURYQUAD 
262141 IDSFOURYQUAD 
£8 JDSFOIURYQUVAD 
262140  |DSFOURYQUAD 
19 I!DSFOURYOUAD 
262159 IDSFOURYQUAD 
20 JDSFOURYOQUAD 
2621438 IDSFOVRYOQUAD 
21 {IDSFOURYQUAD 
2621437 IDSFOURYQUAD 
22 IDSFOURYQUAD 
262136 IDSFOURYOQUAD 
23 IDSFOURYQUAD 
262455  !:DSFOURYQUAD 
1DSFOURYQUAD 
262434 IDSFOURYQUAD 
25 !1DSFOURYQUAD 
262133 IDSFOURYQUAD 
26 =IDSFOURYQUAD 
262432 IDSFOURYQUAD 
27 JDSFOYRYQUAD 
262131 !DSFOURYQUAD 
28 IDSFOURYQUAD 
2621430 IDSFOURYQUAD 
29 {DSFOURYOVAD 
0 IDSFOURYQUAD 
262429 IDSFOURYQUAD 
30 !DSFOURYQUAD 
41 IDSFOURYQUAD 
262428 IDSFOURYQUAD 
34 JDSFOURYQUAD 
2 IDSFOURYQUAD 


Qoo oo vAIorQovovqTmoaQq TO OUI OVNUUNI VU EO KU NONI EOONI AO CCU COCO UO COONI CO COCO C00 oO 


QovaIrUO OHM 


QUTL 


Data Base Load/Print Utility Routine (QUTL) 


QUTL loads and/or prints all or selected I-D-S pages from an input file. 
The input file may be: 


e Dump File created by QUTD 

e Selected File created by QUTS 

e System Statistical Collection File or User Journal File (JX) 
DIRECTIVES 


The QUTL utility is controlled through the following directive: 


1 8 16 


ETC jDescriptor options/, 
jETC JPRINT OPTIONS/ 
{ | 


1 
jOPLION 'Function/Input Descriptor/, 
| 


Directive fields being in column 16, they are terminated by a slash (/) 
and are separated by commas. One or more ETC cards may be used to 
continue the fields. A directive card to be continued must end with a 
complete field, followed by a comma. 


Operation 


The operation of the utility varies depending upon the type of input 
file. The utility is written in a modular (overlay) manner such that 
only the coding needed to accomplish the desired function is engaged. 


There are three INPUT DESCRIPTOR options recognized by the utility: 
DTAPE 


STAPE 
JTAPE 


The directive options applicable for each type of INPUT DESCRIPTOR and 
resulting operation are described as though three unique utilities 
actually exist. 


The Printer Format and Tape Formats are common to the three modes of 
Operation. 
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DTAPE 


DTAPE - Input Descriptor 


The use of DTAPE as the Input Descriptor indicates that the input file 

contains data produced by the I-D-S utility QUTD. 

DIRECTIVE OPTIONS 

FUNCTION 

LOAD Causes specified pages to be written on the mass _ storage 
device. 

PRINT Causes specified pages to be written in print format and 
directed to SYSOUT via file code P*, 

LPRINT These options (either form is acceptable) cause the 

PLOAD specified pages to be written on the mass storage device 
and to be sent to SYSOUT in print format via file code P*, 
Either directive is a combination of the PRINT and LOAD 
functions. 

EOR Forces a unit switch on the input magnetic tape file. 


RNG/P1,P2/ Specifies the page range to be reloaded and/or printed. If 
no range is present the entire range of all subfiles 
allocated is assumed. The argument P2 must be greater than 
or equal to Pl. 


PRINT OPTIONS 
EMPTY Prints non-empty pages and the page header for each empty 
page rather than indicating a succession of empty pages 


only by a first page entry and last page entry. 


TYPES/A,B,C,../ Prints only the record types specified by A,B,C,...(to 
a maximum of 10 types). 


DELETE Produces a file containing reference code, size and record 
type of all records logically but not physically deleted 
from the file. The required file code is DE. 
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Directive Examples: 


1 8 16 


1 | 
IDS {}OPTION IDTAPE/,LOAD/ 
| | 
This requests reloading of all pages for all files allocated to the 
activity. 


1 8 16 
IDS {OPTION {DTAPE/,PLOAD/ 
| { 
This requests reloading of all pages for all files allocated to the 
activity and printing of all nonempty pages with all empty pages being 
indicated with a first page and last page entry. 


1 
1OP TION IDTAPE/, PLOAD/, EMPTY /, 


lETC ITYPES /100 ,200/,RNG/18500 ,25000/, 
ETC DELETE / 


This requests reloading of all pages for the specified range, printing 
of all page headers and any records of the specified types. A file of 
all deleted records will also be produced. 


Execution Report 


An execution report is produced as a part of the output. It describes in 
chronological order, the functions performed as specified in the 
directive. In addition, error conditions are included to advise the user 
of exception conditions. 


The input and output files are double buffered to obtain maximum 
throughput. The input file must contain consecutive pages for the files 
allocated or the PAGE-RANGE specified on the directive card. If 
nonconsecutive pages are encountered during execution, and error comment 
is written on the execution report and the program is aborted with a D2 
reason code. 


Inventory records will be created for the file or PAGE-RANGE re-loaded 
if applicable. 


The minimum core requirement for this activity is 16K. 
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Operation 


The following deck 


library. 


1. Example for temporary files. 


lS DENT 


PROGRAM 
IL IMITS 
IMASS 
ITAPE 
ITAPE 
IDATA 
DS ICREATE 
IDATA 
|OPTION 
|ENDJOB 
| 


Tr AH MAHMAMMNNNUM 
o 
n 


16 
| 
|\(options) 
IQUTL 
l(options) 
|A1,X1R,15R 
JIN,X2S,,1234,,DUMP-FILE (Required File code) 
\DE,X3S,,,,DELETE-FILE (Required File code) 
-Q 

PC /Al/,BSSZ/480/ ,RNG/1,120/ 

Ix 

DTAPE/ ,PLOAD/ , RNG/1,120/ ,DELETE/ 


(minimum 16K) 


This deck setup will result in the following: 


a. Pages 1 through 120 will be written to the mass storage device. 


b. All non-empty pages will be printed on P* and all 


empty pages 


will be indicated with a beginning and ending page number. 


c. All records logically but not physically deleted from the 


data 


base will be written to tape (file code DE) and flagged on the 
printed report. 


2. Example for permanent files: 


| [DENT 


|PROGRAM 
|LIMITS 
|USERID 
|PRMFL 
|PRMFL 
|PRMFL 
IPRMFL 
ITAPE 
[DATA 

DS [OPTION 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
I 
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16 


| (options) 
jQUTL 

(options) 
| IDSFOURYQUAD$ DBASE 
|TF ,R/W,R, IDSFOURYQUADS$DBASE/QUADO1 
TG,R/W,R, IDSFOURYQUADSDBASE/QUAD02 
TH, R/Q,R, IDSFOURYQUAD$DBASE/QUAD03 
|JTI,R/Q,R, IDSFOURYQUADS$ DBASE/QUAD04 
JIN, X2S,,1234,,DUMP-TAPE (Required File code) 
}I* 
|DTAPE/,PLOAD/,EMPTY/,RNG/121,240/ 
l 
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This deck setup will result in the following: 


a. Pages 121 through 240 will be written on the mass_- storage 
device. 


b. All non-empty pages and page headers for all empty pages will 
be printed on P*. 
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The use of STAPE as the Input Descriptor indicates that the input file 
contains data as produced by the I-D-S utility QUTS. 


Input File 


The input file is standard system formats with the exception of block 
size, which is 1602 words. The data on the file must have been written 
as output by the I-D-S utility QUTS; therefore it must consist of either 
the first BEFORE or last AFTER for each page supplied as input and only 
one image for each page will be present. 


DIRECTIVE OPTIONS 


FUNCTION 

LOAD Causes specified pages to be written on the mass 
storage device. 

PRINT Causes specified pages to be written in print format 
and directed to SYSOUT via file code P*, 

LPRINT These options (either form is acceptable) cause 

PLOAD specified pages to be written on the mass_ storage 
device and to be sent to SYSOUT in print format via 
file code P*, Either directive is a combination of 
the PRINT and LOAD functions. 

EOR Forces a unit switch on the input magnetic tape 
file. 

DESCRIPTOR OPTIONS 

RNG/P1,P2/ Specifies the page range to be reloaded and/or 


printed. If no range is present, the entire range of 
all subfiles allocated is assumed. The argument P2 
must be greater than or equal to Pl. 
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PRINT OPTIONS 


TYPES/A,B,C,.../ Prints only the record types specifies by A,B,C,... 
(to a maximum of 10 types). 


DELETE Produces a file containing reference code, size and 
record type of all records logically but not 
physically deleted from the file. The required file 
code is DE. 


DIRECTIVE EXAMPLES 


1 8 16 
t 
\ l 

IDS jOPTION ;,STAPE/ , LOAD/ 
J | 


This requests reloading of all pages found on the input tape for all 
files allocated. 


1 8 16 
| 

IDS ‘!oPTION ISTAPE/ ,PLOAD/, RNG/27500,35000/ 
1 l 


This requests reloading and printing of all pages found for the 
specified range. 


Execution 


An execution report is produced as a part of the output. It describes in 
chronological order, the functions performed as specified in the 
directive. In addition error messages are included to advise the user of 
exception conditions. 


Since pages are non-consecutive on this type load and each page must be 
processed based on the page number found in the record, the input is 
double buffered and the output is accomplished from the input buffer. 


Minimum core requirement for this type load is 14K. 


Inventory records will be updated for each page reloaded if applicable. 
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The following deck setup can be used to 
library. 


1. Example for temporary files. 


execute QUTL from the 


software 


S$ IDENT ; (options) 

$ jP ROGRAM j\QUTL 

S$ jLIMITS (options) 

$ jMASS Al,X1R,15R (required File code) 

$ |TAPE lIn,X2S,,1234, ,DUMP-FILE (Required File code) 
$ |DATA lg 

IDS |CREATE lpC/Al/,BSSZ/480/,RNG/1,120/ 

$ jDATA |r* 

IDS {OPTION |STAPE/ , LOAD/ 

$ |ENDJOB | 


This causes reloading all pages found on the input tape for all files 
allocated. 
2. Example for permanent files: 

1 8 16 

: 

$ jLDENT | (options) 

S )PROGRAM JQUTL 

$ ; LIMITS (options) (minimum 14k) 

$ | USERID jEDSFOURYQUADS$DBASE 

S |PRMFL TF,R/W,R, LDSFOURYQUADS DBASE/QUADO1 

$ |PRMFL TG,R/W,R, IDSFOURYQUADS DBASE/QUAD02 

cS |PRMFL Ipy ,R/Q,R, IDSFOURYQUADSDBASE/QUAD03 

S [PRMFL lpT | R/W,R, IDSFOURYQUAD$ DBASE/QUAD04 

$ ITAPE jIN,X2S,,1234, ,SELECT-FILE 

$ IDATA jt* 

IDS lOPTION |STAPE/ ,PLOAD/,RNG/100,200/ 

$ |ENDJOB | 
This requests reloading and printing of all pages found for the 


specified range. 


20504 
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JTAPE - Input Descriptor 


The use of JTAPE as the Input Descriptor indicates that the input file 
contains data of the System Statistical Collection Tape or a User 
Journal File (JX 


Input File 


The input file may be one or more reels of the master mode System 
Statistical Collection tape or User Journal File. The file must be in 
system standard format with the exception of block size, which is 1602 
words. 


DIRECTIVE OPTIONS 


FUNCTION 

LOAD Causes specified pages to be written on the mass 
storage device. 

PRINT Causes specified pages to be written in print format 
and directed to SYSOUT via file code P*, 

LPRINT These options (either form is acceptable) cause 

PLOAD specified pages to be written on the mass_ storage 
device and to be sent to SYSOUT in print format via 
file code P*. Either directive is a combination of 
the PRINT and LOAD functions. 

EOR Forces a unit switch on the input magnetic tape 
file. 

NORWD Suppresses rewinding of the input tape at the end of 


each directive. 
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DESCRIPTOR OPTIONS 


RNG/P1,P2/ 


Specifies the page range to be loaded and/or printed 
If no range is present, the entire range of all 
subfiles allocated is assumed. The argument P2 must 
be greater than or equal to Pl. 


SNUMB/XXXXX/,ACT/A1,A2/ This selects page images for the specified 


FILE/FILENAME/ 


PAGE/1,2,3.../ 


DATE/YYMMDD/ 


SNUMB starting with activity Al through 
activity A2. If only activity Al is specified, 
that is the only activity to be selected. If 
no activity is specified, all page images for 
the SNUMB are looked at. 


This selects page images associated with the 
specified filename. If this option is used, it must 
be the only directive to be processed. 


This option provides selection of specific pages. 
When this option is used, a FILE/FILENAME/ must be 
specified. A maximum of 10 pages may be specified on 
one directive. 


This option, in conjunction with FILENAME or SNUMB, 
accomplishes selection of records with a date equal 
to or greater than the one specifed. 


DATE/YYMMDD/,TIME/HHTTT/ This provides selection of records with a date 


AFTER 
BEFORE 


PRINT OPTIONS 


TYPES/A,B,C,..-/ 


DELETE 


205.3 


and time equal to or greater than that 
specified. 


Specifies either BEFORE or AFTER images are to be 
loaded. If neither option is specifed, BEFORE is 
assumed. 


Prints only the record types specified by A,B,C,... 
(to a maximum of 10 types). 


Produces a file containing reference code, size and 
record type of all records logically but not 
physically deleted from the file. The required file 
code is DE. 


Rev. August 1971 


DIRECTIVE EXAMPLES 


1 8 16 
) | 

IDS jOPTION |\JTAPE/ ,PLOAD/ ,SNUMB/12345/, 
|ETC jACT/05/ 


This loads and prints the first BEFORE images found on the journal tape 
for SNUMB 12345, activity 5. All nonempty pages and page headers for all 
empty pages will be printed on P*, 


1 8 16 
; | 

IDS lOPTION \JTAPE/ , PLOAD/, FILE/IDSFOURYQUAD/, 
|ETC IDATE/700608/,TIME/13.058/,AFTER/ 


This loads all AFTER page images found on the journal tape for SNUMB 
12345, activity 5. All nonempty pages and page headers for all empty 
pages will be printed on P*. 


1 8 16 
| t 

IDS IOPTION IJTAPE/ ,PLOAD/,FILE/IDSFOURYQUAD/, 
JETC IDATE/700608/,TIME/13.058/,AFTER/ 


This loads all AFTER page images found on the journal tape tape for file 
IDSFOURYQUAD with a date and time equal to or greater than the one 
specified. All nonempty pages will be printed and all empty pages will 
be indicated. 


Execution 


An execution report is produced as part of the user output. It 
describes, in chronological order, the functions performed as specified 
in the directives. In addition, error conditions are included to advise 
the user of execution conditions. 


Considerations 


This type load utilizes a tape which will probably contain multiple 
before and after images for each page; therefore, when loading before 
images a control must be maintained to ensure that only the first before 
image of each page is written to the data base. This is accomplished 
through utilization of a page-flag "bit-buffer". 
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In order to allow dynamic construction of the bit-buffer at execution 
time, the amount of core required for the bit buffer is based on the 
accumulated ranges of all subfiles allocated to the job and the 
accumulated ranges specified on the directive cards. It is the user's 
responsibility to provide enough core to accommodate this requirement. 


The minimum core requirement for this version of QUTL (excluding the 
bit-buffer) is 15K. A formula for calculating the bit buffer size per 
subfile or range is described below: 


(MAX. RANGE - MIN. RANGE +1) *PAGES-PER-PAGE/36 


= Number of words of core required per subfile or range 


Total core required would be the sum of all subfile or range 
computations plus 15K. 


EXAMPLE 


A program aborts leaving two subfiles to be recovered. One subfile has a 
page-range of 1 - 10000 while the second subfile contains pages 10001 - 
20000 for a total of 20,000 pages. If no range is specified on the QUTL 
airectives, enough core (556 words) must be allocated to construct a bit 
buffer large enough to map 2000 pages. However, suppose the 
determination can be made, based on knowledge of the aborted program, 
that only pages 9000 - 12000 were affected, this range may then be 
specified on the directive and only enough core (84 words) to map 3000 
pages would be required. 


Multiple directives may be processed with one execution of QUTL; 
however, they will be processed in the order in which they appear in the 
job stream. Consider the following example: 


IDS OPTION IJTAPE/ ,LOAD/ ,SNUMB/12345/,ACT/2/ 


IDS jOPTION \IJTAPE/ , LOAD/,SNUMB/23456/,ACT/2,5/ 
I \ 


All before images for SNUMB/12345/,ACT/2/ will be looked at on the first 
pass of the accounting tape. The bit buffer will be checked to ensure 
only the first before image of each page is written to the data base. 
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The Journal tape will be rewound and the second directive, SNUMB/23456/ 
activities two through five will be processed. The page flag bits set by 
the first directive will be checked while processing the second 
directive, so that should each job have changes the same pages in the 
data base, only the first before image written by the first directive is 
restored. At completion of the QUTL activity, the data base would be 
restored to a point prior to any changes made by either job. 


The user may suppress rewinding of the accounting tape between 
directives by specifying NORWD on the directive cards. This option 
should be used when the jobs to be recovered were run in sequence rather 
than concurrently. 


Operation 


The following deck setup can be used to execute QUTL from the software 
library: 


Example for permanent files: 


af 8 16 

$ ITDENT | (options) 

$ |PROGRAM | QUTL 

S$ LIMITS | (options) (minimum 15K + bit buffer) 

$ jUSERID 'T DSFOURYQUADS DBASE 

S IPRMFL TF ,R/W,R, IDSFOURYQUADSDBASE/QUADO1 

$ IPRMFL, Ing , RECOVERY/R/W, R, IDSFOURYQUAD$DBASE/QUAD02 
S ITAPE lin, x2S,,1234, ,JOURNAL-TAPE (Required File Code) 
S IpDATA IT# 

IDS loPTION \JTAPE/ , LOAD/ ,SNUMB/56789/,ACT/01,05/,NORWD/ 
IDS loPpTION \JTAPE/ , LOAD/SNUMB/567890/,ACT/02/ 

S |ENDJOB 


| I 
This deck setup will result in the following: 
l. The first before image of each page associated with SNUMB 56789 
activity 1 through activity 5 found on the journal tape will be 
written to the I-D-S DATA BASE IDSFOURYQUAD. 


2. The NORWD directive prevents rewinding the journal tape prior 
to processing the next directive. 


3. The first before image of each page associated with SNUMB 
567890 activity 2, not reloaded when processing the first 
directive, will be reloaded on file IDSFOURYQUAD. 
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Printer Format 


The format of pages selected for printer output is shown below: 


PAGE: XXXXX XX ACTIVE PAGE SIZE: XXXX CH. 
WD: LN: TYPE: 
XXX XX XXXX OCTAL OCTAL OCTAL OCTAL BCD 


XX XX XXXX OCTAL OCTAL OCTAL OCTAL BCD 
PAGE 3 XXXXX XX ACTIVE PAGE SIZE: XXXX CH. PAGE EMPTY 


AND ALL INTERVENING PAGES 


PAGE XXXXX XX ACTIVE PAGE SIZE: XXXX CH. PAGE EMPTY 


Input File Format 


The data read from the input tape file consists of variable length, 
logical records. The file is in standard system format with the 
exception of block size which is 1602 words. The record format is: 


Word Contents 


0 Accounting Record Header. The number of data words in the record 
is specified in bits 0-17. The record type, octal 000013, is 
contained in bits 18-35. 


dl: Checksum. 

2 SNUMB in bits 0-29. Ignore character (octal 17) in bits 30-35. 

=: Date as MMDDYY. 

4 Start time in hours and thousanths of hours as HH.TTT. 

5 Record type in bits 0-11 as 10. Bits 12-35 are presently unused 
and are zero. 

6 This word is presently unused and is zero. 

7 First six characters of user identification. 
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8 Second six characters of user identification. 


9=-n Active page image. 


Delete File FORMAT 


The optional output file of records logically but not physically deleted 
from the data base is in standard system format. The record format is: 


Word Contents 


0 Reference code. Page number in bits 12 - 29. Line number in bits 
30 = 35. 

uF Record type. 

2 Record size in characters. 
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QUTP 


Journal Record Selector Utility Program (QUTP) 


QUTP selects records from an I-D-S journal tape according to 
user-supplied criteria and writes them on an output tape. 


Directives 


Two types of control cards are recognized by QUTP: SELECT and ETC. The 
first card must be a SELECT; the second is optional. 


ale 8 16 


| 
ps IsELECT (£1, f2,£3 
I 


where fl must be AA/SSSSS. This field specifies the Activity and 
SNUMB of the corresponding Slave Begin record which must _ be 
found to initiate interrogation of this criterion. The 
AA/SSSSS format must be one or two digits for the activity 
number, slash, and five digits for the SNUMB. 


£2 must be AA/SSSSS. This field specifies the Activity and 
SNUMB (which must be the same SNUMB as in f1) of the 
corresponding Slave End record which must be found to 
terminate interrogation of this criterion. 


£3 is either B, A, or null. This field specifies the type of 
record to be selected for interrogation. If this field is 
null, B is implied. If ETC cards are present, this field is 
ignored. B stands for Before and A stands for After. 

Two SELECT card examples are: 


1 8 16 


1 | 

;SELECT  =41/53607,1/53607,B 

DS ISELECT Pec eeete Ser ec sees 
| 


The ETC card is optional. It is used to specify that only BEFORE or 
AFTER records for a given page range are to be selected for output. 
The format of this directive is: 
1 8 16 
JETC wl/E2Z ES, £l/f2/753y: (hie eteess 
| | 
where fl is B or A meaning BEFORE or AFTER. 
f2 is the lower limit of a page range. 


£3 is the upper limit of a page range. 


NOTE: 1<f2<£3<262,143 
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Several page range specifications may be placed on one ETC card, 
but each triplet must be separated from the next one by a comma. A 
Slash must separate each element of a triplet. If several page 
range specifications are placed on one ETC card, the last data 
character must be followed by a blank, and the blank must appear 
prior to or in column 72. Several ETC cards may follow a SELECT 
card as long as the maximum of 8 triplets per SELECT is not 
exceeded. 


If ETC card(s) follow a SELECT, then field £3 of the SELECT card is 
ignored since this option is specific for each page range. 


Two ETC card examples are: 


1 8 16 
I | 
ETC 1B/129/352,A/26 243/53409 
IETC 1A/1/100,A/10/20 


Directive Restrictions 

A maximum of 50 directives is allowed. Following each SELECT directive, 
there may be a maximum of eight page range specifications. 

Tape Format 

The input data for this program can be one or more reels of master mode 


journal tape information. The file must be in standard system format 
with the exception of block size, which is 1602 words. 
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Records are written on the output file in standard system format with 
the exception of block size. Two types of records may appear on _ the 
output tape: BEFORE and AFTER. Their format is: 


Word Contents 
0 Accounting Record Header. The number of data words in the 


record is specified in bits 0-17. The record type, octal 
000013, is contained in bits 18-35. 


1 Checksum. 

2 SNUMB in bits 0-29. Ignore character (octal 17) in bits 
30=35.. 

3 Date as MMDDYY. 

4 Start time in hours and thousandths of hours as HH.TTT. 

5 Record type in bits 0-1l as 10. Bits 12-35 are presently 
unused and are zero. 

6 Lines per page for this page image (bits 1-17). 

7 First six characters of user identification. 

8 Second six characters of user identification. 

9-n Active page image. 


Execution Report 

A detailed execution report is printed by QUTP. The report is divided 
into two parts. Part lis a listing of the directives and part two is 
the summary report. 

Operation 


l. Deck setup. 


The following deck setup can be used to execute QUTP. 


1 8 16 
| 

$ IDENT 

$ IPROGRAM iQUTP 

$ ITIMITS ‘Options 

$ TAPE tN, Options (IN is required file 
| l code for the input tape) 

$ ITAPE (OT ,Options (OT is required file 

code for the output tape) 

Directives 


S IENDJOB | 
KKKEOF | | 
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QUTP performs three distinct functions to select the specified 
records. 


PROCESSING DIRECTIVES. The directives are read as data from the 
input file I*. Each card is checked for errors in both content 
and format. If errors are present, an error comment is written 
with the card image on the execution report; and a switch is 
set so that a D2 abort occurs when all directives have been 
scanned, but before processing of the input tape is initiated. 
When scanning is complete and no error has occurred, a sequence 
number is asSigned to the directive and printed on _ the 
execution report. The criterion is then stored in memory. Since 
all criteria are resident in core, the user need not order 
them. 


RECORD INTERROGATION. As each input record is read from _ tape, 
its record type is examined to determine how it should be 
handled. 


The SLVBGN and SLVEND records are used to initiate and 
terminate testing on a criterion. For example, if a criterion 
specifies all BEFORE records within a specific SLVBGN-SLVEND, 
the criterion is turned on when the matching SLVBGN is 
encountered to interrogate BEFORE records and output those that 
match. Correspondingly, the matching SLVEND turns off the 
criterion. This technique allows inactive criteria to be 
quickly recognized and bypassed. 


The BEFORE and AFTER records are matched against specific 
criteria. If the tests are successful, the records are written. 


SUMMARY REPORT. After all criteria are satisfied or an 
end-of-file is reached on the input file, a summary report is 
produced on the execution report. Specific criteria of each 


directive and the number of output records for the directive 
are shown. 
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QUTR 


Execution Information Report Program (QUTR) 


ATID 


m ee ey Sas Bion Se ee oe eee ee —N— : 
QUTR selects type B intormation records from an I-D-S journal id 


a 
sorts the records, and produces an execution information report. 


Input Tape Format 


The input file is standard system format except for a maximum block size 
of 1602 words. 


Operation 
1. Subroutine .QSTB. 


For each SNUMB-activity that engages subroutine .QSTB, type B 
statistics are collected on the I-D-S journal file as a type 09 
record. These are the records used as input by QUTR. Thus, to 
provide this input, the following loader control card must be 
included in the job stack for the activity: 


1 8 16 


] 
$ USE IOS TB 
| 


Type B information is then accumulated by .QSTB for each 
primary entry subroutine (that is, each subroutine called by 
the object program). 
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Notes: 


Deck Setup. 


The 
for 


(2) 


© © 


©6 ©G86880 OO G6@aao © © © 


© © 


following deck setup shows the appropriate control cards 
(1) collecting type B statistics on the journal file and 
executing QUTR. 


al 8 16 
$ | DENT 
$ IUSERID 
$ lUSE |.QSTB 
$ lOBJECT | 

re 

jo: 

. | 

$ IDKEND | 
S IsXECUTE | 
$ \PRMFL 
$ |TAPE I5x,X1S,,,,I-D-S JOURNAL 


| 
[.-a 

i x | 
} oo. | 


$ |PROGRAM UTR 

S SYSOUT pl 

$ TAPE 1,X1R 

$ ITAPE B1/x2R, ,99999 
S INTAPE S152 

S IENDJOB 1 

***EOH | 


Beginning of activity. 


Provides for collecting type B information in type 09 
journal records. 


Object deck. 
User-created journal file. 
Other user files (and end of activity). 


Beginning of second activity (for producing a type B 
statistics report). 


Pl is required output file code. 


Al is required input journal tape file code. (Note that 
this is the journal file created in first activity.) 


Bl is required file code for sort work file (scratch tape). 


Sl is required file code for the first of two collation 
tapes needed by GE-600 Line Sort/Ierge. 
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Sample Output 


A sample 
callouts 


output for QUTR is shown on the following page. The circled 
are keyed to the foliowing notes: 


Alter number (from GMAP codes) of the call to the subroutine 
Function (similar to I-D-S statement) 

Record type 

Record type of chain master followed by record type of a detail 
Number of times the call was executed 


Number of times the subroutine was executed without requiring 
I/O 


Total number of reads for execution of the subroutine 


Total number of writes for execution of the subroutine 


ALTER FUNCTION CALLS ZERO 1/0 READS WRITES 
135 STORE RECORD TYPE 990 1 0 1 0 
166 RETRIEVE RECORD TYPE 990 1 1 0 0 
169 RETRIEVE NEXT OF CHAIN 990 4 21 3 17 18 
179 DELETE RECORD TYPE 4 20 2 0 18 
184 RETRIEVE NEXT OF CHAIN 990 50 20 19 0 6 
215 RETRIEVE DIRECT 19 0 19 19 
217 RETRIEVE NEXT OF CHAIN 1000 4 19 19 0 0 
282 STORE RECORD TYPE 1 5 0 6 4 
291 STORE RECORD TYPE 1 5 0 6 5 
300 STORE RECORD TYPE 3 5 1 4 4 
309 STORE RECORD TYPE 4 5 0 6 5 
410 STORE RECORD TYPE 50 20 20 0 0 
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QUTS 


Selected Record Sort Utility Program (QUTS) 


QUTS sorts and merges records selected from an I-D-S journal tape. The 
sorted and merged records may be used to reload the user data base when 
recovery to a previous file status is desired. 


Input Tape Format 


The input file is standard system format with the exception of block 
Size, which is 1602 words. The data on the input file must have been 
written as output by the I-D-S Journal Record Selector (QUTP); 
therefore, it must consist of BEFORE and AFTER record types only. 


Output Tape Format 


The output files are standard system format with the exception of block 
size, which is 1602 words. The data on the output files consists of the 
first BEFORE or last AFTER record for each page supplied as input. 


Execution Report 


QUTS produces an execution report as part of the user output. This 
report describes in chronological order the functions performed during 
the execution. In addition, error messages are included to advise the 
user of exception conditions. 


Operation 
1. Deck setup. 
The following deck setup describes the appropriate control 
cards for executing QUTS using tapes. Disc sort may also be 


used instead of tapes. 


1 8 16 
| 
I 


| 
JIDENT 


$ 

$ IPROGRAM  iQUTS 

$ ILIMITS 110, 24K 

$ TAPE )IN, Options 

$ ITAPE OT ,Options 

$ | TAPE loU ,Options 

$ jNIAPE jSl,Options ,3 
S jJENDJOB I 

***EOF | 
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A limit card is required. The minimum is 19K, however 
to run with greater efficiency a limit of at least 24K is 
suggested. 


IN is the required input file code. 
OT is the required file code for the first output file. 


OU is the required file code for the second output file. (This 
file need not be present if the input to QUTS consists only of 
records from a single file; that is, one file name.) 


Sl is the required file code for the first of three collation 
tapes required by GE-600 Line Sort/Merge. A minimum of three 
collation tapes is required. 


2. QUTS consists of input coding and output coding elements 
coupled to the standard GE-600 Line Sort/Merge. The individual 
functions performed are described below. 


INPUT CODING. The input coding element reads and preprocesses all input 
records from the input file: 


A sequence number is placed in bits 0-17 of the seventh word of all 
BEFORE and AFTER records. For each BEFORE record, the sequence 


number is ascending and ranges in value from 1 to 777777(8). For 
each AFTER record, the sequence number is descending and ranges in 
value from 777777(8) to 1. This sequence number preserves’ the 


chronological order of the input records in cases where start times 
may be identical for two different activities. 


Each input record is tested to ensure that only record types 05 and 
06 comprise the input. Invalid records are dumped in octal format 
on the execution report accompanied by an appropriate error 
comment. An indicator is set when invalid records are encountered 
so that the program terminates with a D2 code after all input 
records are processed. 


SORT CODING. The standard GE-600 Line Sort/Merge is used to arrange 
input records in the desired order for output. The fields used for 
sorting and their sequence are: 
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Sequence Field Size Field Description 
lst (major key) 2 words File-name 

2nd 18 bits Page number 

ard 10 bits Page 

4th 2 characters Record type 

5th 1 word Sequence number 
6th 24 bits CALC chain next 


OUTPUT CODING. Two files are available for output in this coding 
element. A control break on file-name results in closing the first 
output file and opening the second output file. The specific functions 
performed in the output coding element are: 


a. The sequence number in bits 0-17 of the sixth word is set to 
zero. 


b. The page number of the current record is compared to the page 


number of the previous record and, if they are the same, the 
current record is not written to the output file. 
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QUTT 


QUTT Not Available 


QUTT Tape Conversion Utility Program is no longer available. 
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QUTU 


File Utility Program (QUTU) 


QUTU performs the following I-D-S utility functions, depending upon the 
directives chosen: 


e File initialize (INIT directive): establishes page headers and 
initializes inventory. 


e File print/graph (PRINT directive): prints requested pages, 
record types, and inventory; graphs space and lines used _ for 
requested pages; and prints a record type usage report. 


e File movement (WRITE directive): moves requested pages from one 
file to another. (This is a DUMP/LOAD facility.) 


e File reformat (WRITE directive): changes page size and/or lines 
per page of requested pages while performing file movement to a 
tape or random file. 


Directives 


Directive fields begin in column 16 and are separated by commas. One or 
more ETC cards may be used to continue the fields if they run _ beyond 
column 72. Each card to be continued must end with a complete field, 
followed by a comma. A directive card followed by one ETC card is shown 
below. 


i 8 16 
IDS jINIT 
IETC 


FC/XX/,RNG/A,B/,RNG/C,D/, 
RNG/E,F/,RNG/G,H/,... 


Formats for the program input directives are shown below, arranged by 
program function. Directive restrictions are listed at the conclusion of 
the format explanations. 
Function 1: File Initialize (random files only; if file is 

tape, directive is ignored) 


1 8 16 


| { 
= INET | FC/XX/,RNG/A,B/,RNG/C,D/,..<. 


where FC/XX/ is the file to be initialized. This field must 
be present. 


For permanent random files: XX is as defined on the SPRMFL 
card. 


For temporary random files: XX is Al for the first file, A2 
for the second, etc. 
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RNG/A,B/ 1S a page range to be initialized. 
If no range field is present, the entire range of the file 
is initialized. A must be less than or equal to B, and B 


must be less than or equal to 262,144 


wee ea Chae ed g~-t se 


RNG/C,D/, if present, is a second page range to be 
initialized. A maximum of 8 ranges will be considered on 
one directive. 


Example for permanent files: 


1 8 16 

$ SNUMB 

$ IDENT 

Ss PROGRAM QUTU 

$ LIMITS 10,24K 

$ USERID IDSFOURYQUADSDBASE 

S$ PRMFL TF,R/W,R, I DSFOURYQUAD/QUADO01 
$ PRMFL TG ,R/W,R, IDSFOURYQUAD/QUAD02 
IDS INIT FC/TF/,RNG/1,120/ 

IDS INIT FC/TG/,RNG/121,240/ 


Example for temporary files: 


1 8 16 

$ SNUMB 

$ IDENT 

S PROGRAM QUTU 

Ss LIMITS 10,24K 

Ss MASS Al,X1S,11R 

S$ MASS A2,X2S,22R 

$ DATA .Q 

IDS CREATE FC/A1/,BSSZ/480/,RNG/1,120/,LPP/63/ 
IDS CREATE FC/A2/,BSSZ/480/,RNG/121,240/,LPP/32/ 
$ DATA I* 

IDS INIT FC/A1/ 

IDS INIT FC/A2/ 
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Function 2: File Print/Graph 


1 8 16 
| 1 
IDS IPRINT IFC/XX/,RNG/A,B/,RNG/C,D/,..., 
! print option 
where FC/XX/ is the file to be printed; and 
RNG/A,B/ are the ranges of that file to be 
RNG/C,D/ printed. 


Example for permanent files: 


1 8 16 
l 
$ ISNUMB | 
$ IDENT 
S \PROGRAM jQUTU 
$ |LIMITS !10,24K 
S |USERID |IDSFOURYQUAD$DBASE 
$ |PRMFL |TF,R/W,R, IDSFOURYQUAD/QUADO1 
S IPRMFL ,TG,R/W,R, IDSFOURYQUAD /QUAD02 
$ ‘DATA \r* 
IDS IPRINT j|FC/TF/,RNG/1,10/,PAGES 
IDS IPRINT  IFC/TG/,EMP'TY 


Example for temporary files: 


1 8 16 
{ i 
$ ISNUMB 
S IIDENT 
$ |PROGRAM IQUTU 
$ |LIMITS 110,24K 
Ss IMASS lA1,X1R,11R 
$ IMASS la2,X2R,22R 
$ IDATA 1.Q 
IDS ICRFATE !FC/Al1/,BSSZ/480/,RNG/1,120/,LPP/63/ 
tps. =-'w‘create 'Fc/a2/,BSSZ/480/,RNG/121,240/, LPP/32/ 
S DATA j1* 
IDS [PRINT IFC/A1/ 
IDS IPRINT IFC/A2/,RNG/121,150/,GRAPH 
The print options and their resulting actions are as follows (each 


option generates a different report code to prevent report "shuffling" 
on SYSOUT; only one option is allowed per PRINT directive but a maximum 
of 8 PRINT directives is allowed): 


NULL Results in the same action as PAGES (see below). 


EMPTY Prints nonempty pages and prints a line for each 
empty page rather than indicating a succession of 
empty pages only by a first-page entry and a 
last-page entry. An inventory printout is 
included. 
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Function 3: 
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GRAPH 


GRAPH/N/ 


INV 


PAGES 


RECORD 


TYPES /A,B,C,.../ 


1 8 16 


Prints a graph showing, for 
percent of space used and number 


each page, the 
of lines used in 


the page. 

Prints a graph showing, for each N pages and/or 
pagettes, the average percent of space used and 
average number of lines used per page. Note: Use 


caution in interpreting averages that include two 


different page sizes. 


Prints inventory only. 

Prints nonempty pages, indicates empty pages, and 
prints inventory. 

Prints a report of record types usage within each 
of the specified ranges. 


Because of the large buffer space required, a 
record type usage report cannot be generated for 
both the input and output file over the same 
range. If two reports are requested, the second 
request is ignored. 


Prints only the record types specified by A,B,C, 
etc. (to a maximum of 8 types). 


File Movement/Reformat 


! t 
IDS {WRITE | FC/XX/,RNG/A,B/,RNG/C,D/,..., 
l 


where FC/XX/ 
RNG/A,B/ 
RNG/C,D/ 


ONFC/YY / 


PAGE/SZ,LPP/ 


ONFC/YY/,PAGE/SZ ,LPP/ 


is the file to be read; and 
are the ranges of that file. 


is the file to be written. For temporary 
random files, YY must be Al1,A2, etc. 


indicates the reformatting parameters 
for a tape output file. (This field is 
not used if the output file is random. 
Page format on random output files is 
defined by the file attributes.) 


SZ is page size in words. 
LPP is lines per page. 


must 
tape 
the 
the 


If PAGE is present, both parameters 
be present. If the output file is 
and the PAGE field is not present, 
output format will be the same as 
input format. 


Example for permanent files: 


1 
1 

$ ISNUMB 
$ jIDENT |! 
S JUSERID \L DSF OURYQUADS$ DBASE 
S IPROGRAM QUTU 

ILIMITS [10 , 24K 
$ IPRMFL |TF ,R/W,R,IDSFOURYQUAD/QUADO1 
$ |PRME L TG, R/W,R, IDSFOURYQUAD/QUADO 2 
$ | TAPE \DT,X1S 
S ;DATA iI* 
IDS WRITE IFC/TF/,ONFC/DT/ 
TDS IWRITE IFC/TG/ , ONFC/DT/ 


I aaa the reloading of the files from 
| | the dump tape 

;PROGRAM !QUTU 

LIMITS !10,24K 

IDRMFL jJTF,R/W,R, IDSFOURYQUAD /QUADO1 


|PRMFL ITG, R/W, R, IDSFOURYQUAD /QUAD02 


| TAPE IpT,X1D 

\DATA IT x 
TDS |WRITE lPC/DT/, ONFC/TF/ 
IDS WRITE 'FC/DT/,ONFC/TG/ 
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Example of initialize, execute, dump, 


kk 


** 


1 8 16 

fo Siena a ee eee 
$ ISNUMB 

$ lIIDENT | 

$ IPROGRAM |QUTU 

$ lIntmMITS 110,24K 

$ IMASS lA1,X1S,11R 

$ IMASS A2,X2S,22R 

$ IDATA j+Q 

IDS CREATE |FC/A1/,BSSZ/480/,RNG/1,120/,LPP/63/ 
IDS CREATE |FC/A2/,BSSZ/480/,RNG/121,240/,LPP/32/ 
S$ |DATA jr * 

IDS jINIT JFC/A1/ 

IDS ;INIT JFC/A2/ 


User's Program to be executed with its required 
control cards 


$ IPROGRAM |QUTU 

S LIMITS ,10,24K 

$ TAPE DIT, X6S 

$ IMASS Al,X2S,22R 

$ |DATA l.Q 

IDS ICREATE IFC/Al1/,BSS2/480/,RNG/121,240/,LPP/32/ 
$ lpara—s Ia 


WRITE IPC /AL/, RNG/121,240/,ONFC/DT/ 


And the reloading of that file from the dump tape 


| I 


$ \PROGRAM IQUTU 

$ ‘LIMITS !10,24K 

$ |MASS Al,X2R,22R 

$ |TAPE DT,X6R 

$ |DATA .Q 

IDS ICREATE |FC/Al/,BSSZ/480/,RNG/121,240/,LPP/32/ 
$ |DATA L* 

IDS WRITE 1FC/DT/,RNG/121,240/,ONFC/A1/ 


**NOTE: FC/Al/ is used to reference the file which 


activity was created and defined as FC/A2/. 


Directive Restrictions 


Besides the restrictions included in the discussions of 
directives, the following apply: 
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in 


and reload for temporary files: 


the first 


the 


l. A maximum of 8 INIT, 8 PRINT, and 8 WRITE directives 


processed. 


various 


will be 


LO. 


A maximum of 8 RNG fields will be considered on any one 
directive. 


A maximum of 8 record types will be considered on any one PRINT 
directive TYPES field. 


When a range is defined on a directive, the input file must 
contain that entire range with pages in sequence. 


If no RNG field is present on a PRINT or WRITE directive, any 
pages found on the input file that can be written to SYSOUT 
(with PRINT) or the output file (with WRITE) will be handled. 


Only SDL-1 (and later) dump format tapes will be read and 
written. 


24,000 words of core storage are necessary for program 
execution. 


Any output tape files must contain ranges which do not’ require 
writing on one tape, then on another and then on the first 
again. For example, the following is legal: 


Ranges Tapes 
1 - 100 
1 
200 - 1000 
L001 = “1100 
2 


1700 - 1800 


The following is illegal: 


Ranges Tapes 
1 - 100 
1 
200 - 1000 
101 - 150 2 


Since subroutine OPEN is used, all rules defined by OPEN for 
overlapping ranges, etc., hold for this utility, if a random 
file is involved. 


Only SDL-2 (and later) sorted journal tapes may be processed. 


Printer Format 


The printer output formats for the PRINT options are described below and 
illustrated in the "Sample Outputs" section. The circled numerals’ refer 
to the corresponding callouts on the sample outputs (Figures 38-41). 
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PAGES option (see Figure 38): 


Notes: 
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PAGE xXXXXXX XXXXXK: page number in octal, then decimal. 


xx LINES xx USED: total number of lines existing on this page, 
number of these used; both in decimal. 


SIZE, CHAR; USED xxxx, AVAIL xxxx: number of characters used, 
number still available; both in decimal. (Sum of these is’ size 
in number of characters.) 

BEGINNING LINE NUMBER xx: beginning line number of page. 


CALC CHAIN NEXT xxxxxXXxXX: contents of the CALC chain NEXT 
field (octal). 


LN xx xx: line number in octal, then in decimal. 
TP xxxx: data record type in decimal. 
SZ xxxx: record size in characters (decimal). 


W+xxx: number of words from beginning of the page. 
Cxx : beginning character in the word W+xxx. 


XXXXXXXXXX: OCtal control word, equivalent to Gy): and (8). 
Contents of line defined in (),(7),(), and ‘ 


Octal data. 


BCD data, equivalent to octal data on same printed line. 


Same information as in (),@),(),@) and (10) for next line. 


If a page is empty, only the following appears: 
PAGE XXXXXX XXXXXX PAGE EMPTY 


If two or more succeeding pages are empty, the following 
appears after the line shown above: 


THRU 
PAGE XXXXXX XXXXXxX PAGE EMPTY 


Selecting the PAGES option also causes an inventory for the 
range (as shown for the INV option) to be printed by SYSOUT. 


EMPTY option: 


The output for this option is the same as for PAGES (including an 
inventory), except that for each empty page - that is, succeeding pages 
as well as single ones - the following appears: 


PAGE xXXXXXX XXXXKXX PAGE EMPTY 
TYPES option: 


The output for this option is the same as for PAGES, except for the 
following: 


1. No inventory is included. 
2. Only the selected record types are printed. 


3. If a page contains records but none are of the requested types, 
the following appears: 


PAGE XXXXKXKK XXXXXxX NO REQUESTED RECORD TYPES 


INV option (see Figure 39): 


@ PAGE 


XXXXXX XXXXXX : Page number in octal, then decimal 
(2) LINE 
XX XX : Line number in octal, then decimal 
(3) #AVAIL 
XXX : Percent of space available, shown 


in either of two ways: 


a. When the space used in the page is less than the percentage 
specified in the user's inventory update request, this 
condition is indicated by a #AVAIL of xx (where xx is 100# 
minus the inventory update request). Thus, this indication 
shows only that the inventory update request percentage has 
not been exceeded. 


b. When the space used in the page is greater than the 
percentage specified in the user's inventory update 
request, this condition is indicated by a #AVAIL xx (where 
xx is the actual percentage of total space that is still 
available). 


(4) THRU : Indicates that, for the pages from the 
page and line preceding this word 
through the page and line following, 
the AVAIL is the same. 
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RECORD option (see Figure 40): 


@ 
® 


@ 


RECORD TYPE 


XXX : I-D-S record type. 
SIZE 
XXX : Record size in characters. (The size 


is flagged by an asterisk if it is 
inconsistent.) 


NUMBER 


XXXX : Number of occurrences of record 
type within specified range. 


(4) NUMBER DELETED 


© 


©) 


XXXKX : Number of this record type logically 
deleted within the specified range. 
LOW PAGE 
XXXX : Page number of first occurrence of 
record type within the specified range. 
HIGH PAGE 
XXXX : Page number of last occurrence of 
record type within the specified range. 
RANGE 
XXXX - XXXX : Specified range for report. 


GRAPH and GRAPH/N/ options (see Figure 41): 
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VOOOO°2 


Page numbers. 

Scale for percent of space used (0 - 100). 
Scale for number of lines used (0 - 63). 

# character, showing percent of space used. 
# character, showing number of lines used. 


X character, used when # and # values coincide. 


Notes: 


1. For GRAPH/N/, the numbers of the pages at interval N appear in 
the column at 1. The symbols opposite these numbers represent 
averages for the percent of space used and number of lines used 
within the interval. 


2. Multiple entries for the same page number can occur if GRAPH 
(rather than GRAPH/N/) is specified when pagettes are included. 


Tape Format 

The data sent to the output tape file is written as variable length, 
logical records using the GEFRC subroutine PUT. The file is in standard 
system format with the exception of block size which is 1602 words. The 
Page Image record format is: 


Word Contents 


0 Accounting Record Header. The number of data words in the 
record is specified in bits 0-17. The record type, octal 
000013, is contained in bits 18-35. 


1 Checksum. 

2 SNUMB in bits 0-29. Ignore character (octal 17) in bits 30-35. 

3 Date as MMDDYY. 

4 Start time in hours and thousandths of hours as HH.TTT. 

5 Record type in bits 0-11 as 10. Bits 12-35 are presently unused 
and are zero. 

6 UTL in bits 0-17 to indicate utility tape rather than journal 
tape. Bits 18-35 unused. 

7 First six characters of user identification. 

8 Second six characters of user identification. 

9-n Active page image. 


Execution Report 


An execution report is produced as part of the user output. It includes 
open and close reports for any random files used (see examples 1 and 2, 
respectively, in Chapter 6, "I-D-S Execution Report") and a list of the 
directives used in order of execution. (See Figure 42 in "Sample 
Outputs" section for example of directive list.) 


DP ae 


the report may also include any of the following error messages (ail but 
9 describe conditions causing a program abort): 


no. 
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1. 


10. 


FILE CODE XX RANGE REQUESTED NOT IN FILE 

A range has been defined by a directive for a random file (XxX) 
which is inconsistent with the range defined in the file 
attributes. 

FILE CODE XX CANNOT HANDLE REDUNDANT RANGE 

Range had been defined by a directive for this file (XX) with 
an intervening range requested by another file (see "Directive 
Restrictions," no. 9). 


CANNOT HANDLE MORE THAN 8 FILES 


More than 8 directives of any one type (INIT, PRINT, WRITE) 
have been input. 


PREVIOUS CARD FATAL ERROR 


The preceding card contains an error -- no file code, missing 
comma, or missing slash. 


PREVIOUS CARD TOO MANY RANGES 
More than eight ranges are defined on the preceding directive. 
PREVIOUS CARD TOO MANY RECORD TYPES 


More than eight record types are defined on the preceding 
directive. 


FILE CODE XX INPUT IS NOT SEQUENTIAL 


The file (XX) does not contain all of the pages defined by a 
following range field. 


FCXX ON FCXX PAGE TOO SMALL 


In reformatting, the output page size is not large enough to 
contain the lines to be written in the page. 


FILE CODE XX CHECKSUM ERROR 

A checksum error has been found on file XX. This is noted but 
the program does not abort. (See also "Directive 
Restrictions," no. 7.) 


FILE CODE XX DATA READ NOT PAGE OR PAGETTE 


The file XX does not contain page images. This is the result 
of a bad tape or bad random file. 


Operation 


The following deck setup can be used to execute QUTU. 


l 8 16 
| 
$ | 
$ IUSERID | 
$ PROGRAM jQUTU 
S jLIMITS 110,24000 
$ jPRMFL 
$ IDISC | 
$ iDRUM or !Options 
Ss IMASS : 
$ [TAPE jOptions 
| e 
| e 
: é Directives 
lis a 
Io, 
$ IENDJOB 
*KKEOF ! 


Sample Outputs 


Figures 38-42 on the following pages show the various sample outputs 
mentioned in the "Printer Format" and "Execution Report" sections. 
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PAGE 


© 


900003 000003, 


LN O21 O1-7P 0001+SZ 0203,We 
WS Le oe 


PAGE 


090001 
000003 
000004 
000008 
000013 
000017 900015 
000021 900017 


Ree 


o 


000001 
000005 
000004 
000010 
000015 


@) 


LN 02 92-TP 0026,SZ 0014,W+ 37,C 3 


© 


S 


©) 


32 LINES 32 USED SIZE,CHAR} USED 1445,aVAIL 505 GEGINNING LINE NUMBBR 4 CALC CHAIN NEXT 00000301 
3,€ 4 01000103413 000003100000 000006061103 020031244325 514462202631 O038D000669S20IDLERS FI 
254324202020 202020202020 202020010745 031103060400 ELD 17N393640 
45010002N3n2 a5nS66n00503 244500040105 004500014545 NIOSSI2ZS3WOSSDNOS150NGLNN 
() (°) 212145450005 n3onoocgn000 060527526227 433121622120 AANNOS30Q0000655GRSGLIASA 
202045010607 642920202045 200304076420 292020452045 NL67y N 347y NON 
204520204520 202020000001 234320202020 202020202020 N ON OOLEN 
20Z202n202N20 202020202020 202020202020 204520202020 
202020202020 202020294520 202020202020 202020202020 N 
202100000302 A0032 
0205320046 900500050300 ooC303 050530033 
J 
Figure 38. Sample PAGES Option Output 
LINE XAVATL PAGE LINE AVAIL PAGE LINE %AVAIL 
04% 01 0 000001 000004 41 33 »>75 THRU 000003 000003 00 00 »75 
O41 O1 0 000003 000003 41 33 »>78 000004 000004 of O4 0 
44.33 >75 THRU 000007 000007 00 Go »>75 000007 000007 of O4 0 
00 00 0 000010 000008 Ot 01 »>75 THRU 000015 000013 60 00 »75 
O41 O1 0 000015 000013 41 33° »75 THRU 000017 000015 00 00 »75 
O1 O41 0 000027 000015 41 33 »75 000020 000016 o1 O14 0 
4n 32 02 000021 000017 41 33 »75 THRU 000025 000021 00 00 »75 
Nee Meas NED, nee] 
Figure 39. Sample INV Option Output 
_SIZE NUMBER NUMBER DELETED LOW PAGE HIGH PAGE RANGE i1- 50 


_USAGE RECORD TYPE | 


fo} 


2 


sek. 


= 308 


60 8 


Figure 40. 


New 
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Sample RECORD Option Output 
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3 
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Figure 41. Sample GRAPH Option Output 


44632 01 08-17-69 14,778 


“DIRECTIVE: — ~ “PRINT FC/T2/,RNG/1,50/ 
DIRECTIVE:  — — ___ PRINT ___FC/T2/,RNG/1,50/,GRAPH 
DIRECTIVE: PRINT  FC/T2/,RNG/1,50/,RECORD 


Figure 42. Sample QUTU Execution Report Directive List 


QDIR 


Directive Processor and Service Subroutine (.QDIR) 


-QDIR is a collection of ten different subroutines designed to provide 
common functions for I-D-S utility programs and subroutines. Each 
different function is defined by its SYMDEF name: 
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-QDIRF 


This symbol identifies word -4 of the file control block for _ the 
data file. Bits 24-35 of this word contain the file code for _ the 
data file. If the user wishes to use his own file code, then he 
must initialize these bits prior to any call to .QDIR or .QSFD. The 
assumed directive file code is I*. 


-QDIR 


This subroutine opens the file for directives and reads_' the 
directive into memory. Columns 8-13 are left justified and stored 
in a cell pointed to by the user in the calling sequence. This 
value is also returned to the user in the A-register. 


As each directive is read from the data file, columns 1 through 84 
(14 words) are moved to a working buffer. The literal words 
DIRECTIVE: precede this buffer. After the move is completed, the 
-QMEX subroutine is called to print the literal and the card image 
on the execution report. A slew to the next line is given with each 
line of printing. 


In addition, a tally word is initialized to point to column 16 of 
the directive for scanning the variable field through calls to’ the 
-QSFD entry point. 


ETC cards are also read by this subroutine. 


The calling sequence is: 


1 8 16 
| t 
| CALL  QDIR(ARG1) ALT1 
J 
where: 
ARG1 = The location for the contents of 


columns 8-13 of the directive. 


ALT1 The location for an end of file exit. 


-QSFD 


This entry point is called to scan the variable field of a 
directive starting in column 16. Each call to this entry point will 
scan a maximum of 12 characters, if a delimiter is not encountered. 
The valid delimiters are comma, blank, and slash. 


The n characters are returned left justified with trailing blanks 
in the AQ-register as well as being returned to the three cells 
pointed to by the user in the calling sequence. The delimiter 
character is not returned. 


The third word pointed to by the calling sequence will contain 
three values: 


Bits 0-17: The number of characters in the subfield. 
Bits 18-23: The delimiter character found. 


Bits 24-35: The value required for a right shift of 
the AQ-register in order to right justify 
the subfield. 


It should be noted that if the value in 0-17 is zero, then _ the 
value in bits 24-35 will be 72. 


If more than 12 characters are present in the subfield then only 
the first 12 characters are returned to the user. The tally word 
for the scan is advanced through the next delimiter. The character 
count in bits 0-17 of the user's argument will contain the total 
number of characters in the subfield. 


The calling sequence is: 


1 8 16 
! 
CALL .OSFD(ARG1) 
' 
where: 


ARG1 = The address of three consecutive 
cells for return information. The 
first two cells will contain the 
subfield, left justified, with 
trailing blanks. The third word will 
contain the three values described 
above. 


~QDIRC 


This subroutine closes the directive file. If only one file code is 
used with .QDIR, the user need not call this subroutine. 
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-QBCD 


This subroutine converts a number from binary to BCD and replaces 
leading zeros with blanks. The number to be converted may not be 
larger than 999,999(10). If the binary number is zero, it will be 
converted to five blanks and a zero. 


The calling sequence is: 


HE 8 16 
1 
\LDA 'b INARY 

;CALL | QBCD 

| 1 

(value returned in the Q-register) 


This subroutine clears n words to a preset value. The argument list 
specifies the number of words to be cleared, the address of the 
area to be cleared, and a pointer to the value to be stored in the 
area. 


The calling sequence is: 
1 8 16 
1 
ICALL |) QCLR (15, BUF ,=6HK BMP) 
| | 


~QCSM 

This subroutine calculates the checksum of a specified number of 
words starting at a given location. If the starting location is 
given as A, then the word at Atl will be skipped (not added into 
the checksum). 


The calculated checksum is returned to the user in the A-register. 


The calling sequence is: 


1 8 16 
| 
[CALL 1. QCSM(ARG1,ARG2) 
| { 
where: 
ARG1 = The number of words to be 


checksummed. 


ARG2 Address of word 0 of data to be 


checksummed. 
Note: If the number of words to be checksummed is 0, 1, or 2, then 


the first word of data is returned to the user as_ the 
checksum. 


Rev. August 1971 


« QMCH 


This subroutine moves n characters from address A, starting 
character position Al, to address B, starting character position 
Bis 


The calling sequence is: 


1 8 16 
T 


| 
\CALL | QMCH (15 ,BUFA,3,BFRB,0) 
i | 


Starting character positions must be from 0 through 5. 


-QMEX 


This subroutine is called to write messages on the execution 
report. Messages must be less than or equal to 22 words in length. 
If a length of zero is given, a line of blanks will be written and 
the specified slew code will be appended to the end of the line. 
Messages greater than 22 words in length will be truncated to 22 
words. 


The calling sequence is: 


ng 8 16 
| 
ICALL 1 QMEX (ARG1 ,MSG , SLEW) 
1 
where: 
ARG1 = The number of words in the message 


MSG = The address of the message 


The number of lines to be slewed 
after printing. (See the GEFRC 
routines, IOEDIT and PRINT, for slew 
code rules.) 


SLEW 


If a fourth argument is present (the value in the argument has no 
bearing) in the call, then a 'Top of Page' will be issued prior to 
printing the line requested by the caller. After the top of page is 
issued, a heading line is printed with the SNUMB, activity number 
and date followed by a double space. Then the caller's line is 
printed. If the caller wants just a top of page without any 
information printed, he should write the call as: 


- 


- 8 16 
t ' 
ICALL  OMEX (0,0 ,SLEW, 0) 


The zero word count in the above printed call will cause a line of 
blanks to be printed with the slew code specified. 
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-QMWD 
This subroutine moves n words from address A to address B. 
The calling sequence is: 


1 8 16 
| 
CALL Sci eae lie 
' 


-QPBK 


This subroutine is called to journalize a page. The page will be 
sent to the user's journal file if it is present. If no user's file 
is present, then the page will be journalized to the I-D-S system 
journal. 


The calling sequence is: 


1 8 16 
! 1 
(CALL 
! 

where: 
FCB = The LOCSYM of the file control block 


for the journal file. 


»QPBK (FCB,PTR) 


PTR = The address of a word which points to 
the origin of the data to be 
journalized. This origin is’ the 
location of the accounting header 
word which precedes the page. 


The record size for journalization is 
obtained from bits 0-17 of the 
accounting header word. 


It is the user's responsibility to checksum the record and_ store 
the checksum in the record prior to calling .QPBK. The file control 
block defined by the user for the journal file must specify only 
one buffer. 


QSTC 


The .QSTC subroutine generates a trace entry for all calls to I-D-S 
primary subroutines (except for .QOPEN and .QCLOSE). In addition, each 
time a call is issued to one of the following primary subroutines, .QSTC 
prints the current record: 


Trace and Print Record, Debug, and Utility Subroutine (.QSTC) 


-QSTOR -QCHN 
-QGET - QHEAD 

- QGETC - OMDFY 
-QGETD - QOMOVE 
-QGETE - QDELETE 


The trace data and the record to be printed are directed to P* unless 
otherwise specified by the user. The user can direct this output to his 
own file, if desired. 


Trace data and print record entries are generated on P* or a users' file 
for all I-D-S record types, for each I-D-S primary subroutine (those 
listed above), and for the entire page range of the I-D-S file unless 
otherwise specified by the user. The user has the option of selecting: 

1. Which primary subroutine(s) should be traced. 

2. Which record(s) should be printed. 

3. Up to five different page ranges within the I-D-S file. 


4. Which record types (up to a maximum of 50) should be traced or 
printed. 


The -QSTC subroutine is controlled through the following I-D-S 
Directive. 


1 8 16 


! 
lopTION iDEBUG OPTIONS, FILE OPTION, 


IDS 
ETC IDIRECTIVE/OPTION/, 
|ETC IDIRECTIVE/OPTION/, 


ETC ee 


DEBUG OPTIONS 


@ PRTREC This Debug Option causes the contents of the current 
record to be printed after the completion of an I-D-S 
call. Sample output is shown in Figure 43. 


e TRACE This Debug Option causes a trace data line to be 
generated each time one of the previously listed I-D-S 
primary subroutines is called. Sample output is’ shown 
in Figure 43. 


Note: Either PRTREC or TRACE or both PRTREC and TRACE must be 
specified. 
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@e ONFC/xx/ The inclusion of ONFC/xx/ causes the trace data and/or 
the output generated as a result of PRTREC to be 
directed to the users' file with the file code xx. If 
ONFC/xx/ is not included, the output is directed to 
Pp*, 

DIRECTIVES 

e NULL Provides the full capabilities of the option 
specified. 

e ALL Provides the full capabilities of the option 
specified. 

e bo Only the specified options will be performed. 

e DONTDO Processing of the specified options is inhibited. 

OPTIONS 

e TYPES/nnn,...,nnn/ 

Depending on the specified directive, this option allows’ or 
inhibits the tracing and/or printing of specified record types. 
A maximum of 50 different record types can be specified. 

@ VERBS/XXX,...,XXX/ 

Depending on the specified directive, this option allows or 
inhibits the tracing and/or printing of the current record as a 
result of a call to an I-D-S function. The allowable verbs are: 

RETRIEVE 

RETRIEVEEACH (or EACH) 

RETRIEVENEXT (or NEXT) 

RETRIEVECURRENT (or CURRENT) 

RETRIEVEDIRECT (or DIRECT) 

HEAD 

STORE 

MODIFY 

MOVE 

DELETE 
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Depending on the specified directive, this option allows or 
inhibits the tracing and/or printing of current I-D-S_ records 
that are within a specified page range. 1B...5B specify 
beginning page numbers; 1E...5E specify ending page numbers. A 
maximum of five different page ranges may be specified. 


RESTRICTIONS 


e For the same option, specification of a DONTDO directive 
overrides the specification of a DO directive. 


e Both the DONTDO and the DO directives apply to both the TRACE 
and PRTREC functions. 


e Imbedded blanks cause the processing of an OPTION card to be 


terminated. 
EXAMPLES 
1 8 16 
ips ‘oprron !rRacr 


This causes a trace data line to be generated on P* each time one 
of the previously listed I-D-S primary subroutines is called. 


Ll 8 16 


I t 

IDS IOPTION ‘ieee da 
| 

This causes a print record entry on P* for all I-D-S record types 

and for each I-D-S primary subroutine (those previously listed) for 

the entire range of the I-D-S file. 


1 8 16 

{ 
I 

IDS [OPTION |TRACE,DO/TYPES/001,942/, 
IETC IDONTDO/VERBS /MOVE , STORE / 


This causes the tracing of only the record types 001 and 942 for 
the entire range of the I-D-S file and inhibits tracing of the 
I-D-S verbs MOVE and STORE for those record types. The output is 
directed to P*. 


1 8 16 


! I 
TDS '1OPTION ITRACE,PRTREC,ONFC/AB/, 


ETC iDO/RNG/001,005,009,010/, 
ETC IALL/TYPES /,DO/VERBS/, 
IETC IRETRIEVE ,MODIFY , DELETE / 


This causes the tracing and printing of all record types referred 
to by the verbs RETRIEVE, MODIFY, and DELETE that are within the 
page ranges 001 to 005 and 009 to 010. The trace data and print 
record are directed to the user's file with the code AB. 
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DATA <0 
DS lOPTION PRTREC,DO/TYPES/941/, 
ETC DO /VERBS /RETRIEVE/, 


pe IDO/RNG/016 ,900/ 
| 


This example causes all record type 941 (name and address_ record) 
to be printed each time a RETRIEVE verb accesses a record type 941 
between pages 016 and 900. The output is directed to P*. 


DECK SETUPS 


The following deck setup may be used to execute on an I-D-S PRMFL. 


1 8 16 
| I 

$ |IDENT ITDSTST ,PAT 

$ JUSERID j,IDSFOURYQUAD$DATABASE 
,OBJECT PROGRAM 

$ |USE '_QsTC 

$ [EXECUTE 

S {PRMFL |Al, R/W,R, IDSFOURYQUAD/QUAD1 

$ [DATA 1.Q 

IDS JOPTION {PRTREC, TRACE, ALL 

$ [END JOB | 

**KEOF | | 


The following deck setup may be used to execute a program using a 
temporary I-D-S file. 


Note: 
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1 8 16 


S IIDENT | [DSTST, PAT 
|OBJECT PROGRAM 
$ jUSE pe QSTC 
S jJEXECUTE 
3 |DISC lal, X1R,9R 
$ \TAPE IB1,X2D 
$ |DATA 1.Q 
IDS CREATE |FC/Al/,BSSZ/100/,RNG/1,100/ 
IDS jOPTION |TRACE ,ONFC/B1/,DONTDO/RNG/1,50/ 
$ (ENDJOB | 
kEKEOF 
To provide the TRACE and PRTREC options the following LOADER 
control card must be included in the job stack for the activity. 
1 8 16 
| 1 
$ \USE QsTC 


USER ENTRY POINT 

A users' entry point has been provided which enables the printing of the 
current I-D-S record. This entry is available to the user regardless of 
whether PRTREC or TRACE has been specified. 


i 8 16 


] 
SYMREF \QSTA4 
i\CALL IQSTA4 (ARG) ; 


where ARG is a one word working storage location to be used as a 
line count. 


STANDARD ERROR OPTION 


If TRACE is specified by the user and an I-D-S error occurs, an error 
message is generated to the output file code specified by the user. 
Refer to Figure 43 for example. 


SUBROUTINE RESTRICTIONS 


1. If the user entry point (QSTA4) is called, all output generated 
is directed to P*,. 


2. If any field within an I-D-S record exceeds 84 characters, only 
the first 84 will be printed by the PRTREC module. If a field 
is modified, the PRTREC module shows the result of the entire 
field. 


3. If the modify verb is called to modify a record with more than 
100 fields, modify flags appear on the first 100 fields 
modified; all others are not flagged. 


4. If this subroutine is used with a user program which has not 
been compiled using the .QNAMS macro, the field and record name 
areas of all output will contain unpredictable data. MThis 
condition will also cause faulty printing in some cases. 


To include this macro, the user must include the following code 
within the Procedure Division after the first ENTER IDS. 


statement. 
14 oo) 
| n 
|ENTER j|GMAP . 
1.QNAMS | 
ICOBOL . 


IENTER | 


5. If ONFC/XX/ file option is used and the specified file is not 
defined as having variable-length records or if file is not 
assigned as a printed file, the results are unpredictable. 
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Cc 
Ue 


If ONFC/XX/ file option is used and the specified file is not 
opened before the first I-D-S statement, all output is directed 
to P*, 


OUTPUT DESCRIPTION 


Figure 43 shows typical TRACE and PRTREC output. A description of all 
generated data fields follows: 
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Complete trace entry 

Complete PRTREC entry showing fields names and field content 
TRACE heading 

GMAP alter number within program where I-D-S call was issued 
Current type of I-D-S operation 

Current record type 

Page and line number of current I-D-S record 


PRTREC header shows type of I-D-S operation, record name, and 
page and line number of current I-D-S record 


Field-name of record 
Field contents 


Control field - this field shows field usage, allowable 
contents are: 


RDM - Randomize field key 
STA - Sorted ascending field key 


STD - Sorted descending field key 
MAT - Match key or synonym field 
Data Type: 
AN - Alphanumeric 
A - Alpha 
N - Numeric 
SN - Signed Numeric 
SFX - Single precision, fixed point 
SFP - Single precision, floating point 


DFX - Double precision, fixed point 
DFP - Double precision, floating point 


Note: All field contents that are not BCD will be printed in 
OCTAL. 


I-D-S error entry with error code 


An (*) will appear by each field name which had its contents 
changed by the user calling the I-D-S modify routine 


CV 


66536 05 09-29-69 21.173 G) G) 


week IDS-TRACE * ALTER NO.- 293 CTYPE-STOR 
DATREC MAT CALDAT 

STOR DATDET 120/ 2 0992 9998 

wee IDS-TRACE * ALTER NO.- 293 CTYPE-STOR 


(8) DATREC MAT omar cy 


STOR DATDET T2073 0992 (0)~9999 


wee TDS-TRACE * ALTER NO.- 263 CTYPE-STOR 
XXXXX AN IDS ERROR HAS OCCURED, ERROR CODE - DO1 ) (3) 


DATREC MAT CALDAT 
STOR DATDET 120/ 3 0992 9999 
week IDS-TRACE * ALTER NO. - 282 CTYPE-GET 
DATREC RDM Xl 
GET DATMAT L207 -J 0992 0000 
BASE2 YYYMON 
0001 0001 
weke IDS-TRACE * ALTER NO.- 303 CTY PE-CHN 
DATREC MAT CALDAT 
CHN DATDET 120/ 2 0992 9999 
week IDS-TRACE * ALTER NO.- 319 CTY PE-MDFY 
DATREC MAT CALDAT 
MDFY DATDET £20/-°2 0992 9998 


Figure 43. Sample 
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RTYPE- 993 PG/LN= 
STA ACTDAT 
999999 

RTYPE- 993 PG/LN- 
STA ACTDAT 
999999 

RTYPE- 993 PG/LN- 


STA om 


RTYPE- 992 
X3 


999999 
PG/LN- 


00000006 


RTY PE- 993 


PERMAX 
07 
PG/LN- 


STA ACTDAT 


RTYPE- 993 


999999 
PG/LN- 


STA ACTDAT 


-QSTC Output 


999999 


2) 


120/ 2 G) 


120/3 


120/ 3 


120/ A 


00005 


SFX 
120/ 2 


120/ 2 


CODDAT 
4 


CODDAT @) 
5 


CODDAT 
5 


WKGWK 


FSTMON 
0001 


CODDAT 
5 


CODDAT * 
ra 


0068 


Verify and Print Utility Subroutine (.QUTF) 


QUTF verifies the integrity of a page and formats and prints I-D-S data 
base information received from QUTU, QUTL or QUTD. 


The calling sequences are: 


1 8 16 
I 
CALL | QUIF 1 (ARG1,ARG2) 
| | 
This entry point must be called first to initialize .QUTF. ARG1l is 
the name of the file control block to which the dump output is 
sent. Normally, this is the file control block for SYSOUT, P*. 


ARG2 is the symbolic location of four words that are included in 
the title line of the dump output. Normally, it is name and version 
of QUTU, which produces the output from QUTD, QUTL, or QUTU. 


L 8 16 
I | 


CALL | QVFY (ARG1,ARG2,ARG3) ARG4 
| 


This entry point is called for each page that is to be verified. 


ARG1 is the location of a word which contains the 24 bit page 
reference code, right justified. 


ARG2 is the address of the first word of the page to be verified. 
ARG3 is the location of a word which specifies whether the page 
will be dumped on the printer via SYSOUT. If the word is zero, no 
printing will be performed. If the word is nonzero, the page will 
be printed. In addition, if this word is nonzero it must be 
preceded by and followed by two words of zeroes. 


ARG4 is the location of the user's alternate exit which is taken 
whenever a page cannot be verified. 


The following checks are performed to verify the integrity of a 
page: 


e The page number supplied by the caller (ARG1) equals the page 
number in the input record. 


@e Every line present in the page has its line flag properly set. 
e The sum of record sizes equals the active page size. 


e Line flags are not set for lines that are not contained in the 
page. 
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If any one of these tests fails, an appropriate error message is written 
on the execution report followed by a snapshot of the page in error. The 
registers shown in the panel portion of the snapshot dump display the 
following information: 


X0 The page number supplied by the caller in argument l. 


Xl The current word address within the page where processing was 
being performed when the error occurred. 


X2 The current character position in the word described by index 
register l. 


X3 The usable page size expressed in characters. 
X4 The available space expressed in characters. 
X5 The active page size expressed in characters. 


X6 The number of characters in the page which have already been 
processed. 


X7 The number of the current line being processed. 


AR/ 

QR The current status of the available line flags, left justified. 
These flags are taken from working storage and some bits may 
not be present for those lines already processed. 


As each page is verified, secondary entry points of .QUTF are called to 
format and print the page, if required. These entry points are described 
below: 


1 8 16 
; 


I 
ICALL |. QUTF2 (ARG1,ARG2) 
1 
This entry point is called at the beginning of each page. It supplies 
information to .QUTF concerning the page number and the active page 
size. 


ARG1 is the location of the page number, in binary, right justified. 


ARG2 is the location of the active page size, in binary, right 
justified. 
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L 8 16 
1 


i 
\CALL | QUTF3 (ARG1,ARG2,ARG3) 
The third entry point is called to print each line. ARG1 is the location 
of the word number within the page for this line. The value is binary, 
right justified. 


ARG2 is the location of a tally word containing the address and starting 
character position of the line. 


ARG3 is the location of an indicator. If ARG3 is 0, the Page Header 
(line 0) is sent for printing. If ARG3 is #0 and negative, a normal line 
is sent for printing. 

Printer Format 

The format of pages selected for printer output is shown below: 


PAGE: XXXXX XX ACTIVE PAGE SIZE: XXXX CH. 


WD: LN : TYPE: 


XXX XX XXXX OCTAL OCTAL OCTAL OCTAL BCD 


XXX XX XXXX OCTAL OCTAL OCTAL OCTAL BCD 


Execution Report 


The output produced by the .QUTF subroutine is written on the file 
provided by the user in his call to .QUTFl. The report code is 25(10). 
Output is produced by calling the PRINT and EPRINT subroutines of GEFRC. 
The GEFRC subroutine IOEDIT is used for page numbering and format 
control. 


Operation 

QUTF is used by QUTD and QUTL to print data base pages in the desired 
format. It is made available to the utility routines from the subroutine 
library through the use of the SYMREF feature of GMAP. QUTF is not 
freestanding and cannot be called except through the user's own program. 


Sample Output 


An I-D-S Selective Tape Dump report using .QUTF is shown on _ the 
following page. 
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Lvc 


TDSEX QS 


106 
103 
105 
108 
tit 
114 
117 
12u 
122 
425 
428 
131 
134 
4357 
439 
142 
445 
148 
154 
154 
156 
{59 
162 
165 
468 
U7t 
173 
176 
479 
182 


PAWES 122° 1 


wDe 


09"25-68 


LNa 


COON AWA Gn HO 


12,074 


IuS SELECTIVE PAGF DMP REPORT 


4200620021 
430062002100 
44 

4500 

460062 
47006200 
5000620021 
510062602100 
52 

2300 

54u062 
55906206 
5600620021 
570062802100 
69 

6100 

620062 
635006200 
4490620021 
65062092100 
66 

6700 

700062 
71006200 
7200620021 
739062802100 
74 

7500 

760062 
77006200 


SIZE) 617 


290172775000 
vioo 

20062 
03006200 
0400420024 
050062802100 


11006200 
1200820024 
136062002100 


17006200 
20900620021 


000000050903 
009099060790 
CoS2on210000 
620021090990 
Oo21000000oL 
210900090192 
0909000090505 
000004020590 
006200210900 
620021090000 
CO21000g00083 
210006000493 
090000040240 
0000010460000 
006209210908 
629021090008 
0021000090903 
210000000206 
Oooo0007110t 
900002030698 
606290210000 
620021090000 
002100090002 
210000000111 
0600009020207 
0000000404698 
906290210000 
620021090008 
002100090001 
2100000901083 


CHARACTERS 


017200242777 
620921090000 
CoeLOo0n00no1 
210000000204 
060000010009 
000002051190 
[06200210000 
620921090000 
Co2lo00090003 
2190000090109 
co0ddn0g04 1 
000000010709 
COS2n0240090 
620021090009 
Oo2toc0goccs 
210000090495 
v05000030099 


000100017125 
0100017206 

neoiaso10001 
010402000100 
n40000010001 
020001000172 
n00100017215 
0100017156 

co02o7050001 
030206000100 
050500010001 
n00001000172 
900100017155 
0100017201 

000307060001 
040791000100 
069100010001 
020001000172 
000100017170 
0100917104 

0003501020001 
030403000100 
110700010001 
100001000171 
000100017165 
0100017103 

000204100001 
020711000100 
061100010001 
040001000171 


777777777700 
c10603000100 
1on400010001 
e50002000171 
900100017147 
9100017208 

900007000001 
061211006100 
c20000010001 
010001000171 
0200190017173 
0100917243 

p00005050001 
non506o00100 
100700010001 
070001000171 
nv0460017124 


0801608 VERSION UF 


90017177 
017227 
7145 

25 


00017175 
017232 
7162 

31 


00017224 
017222 
7133 

44 


00017225 
017237 
71406 

30 


00017113 
017164 
7432 

27 


90000000 
047176 
7242 

72 


00017128 
017140 
7144 

57 


00017197 
017112 
72397 

31 
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MOSOAD00LS1010123 
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OoS0A0002L4001012N 
POSQAD0011201010°E 
QOS0A000055010163 
ROSOA00042501018Z4 
-0$040002730101Z= 
SOSQAD0NSZO0101 84 
#0$0A00055501012$ 
YOSOADNO4SS0OL0Le! 
30$0A00042801012) 
19S8Q0A000160010161 
#0S0A0003760101%A 
JOSOA0004741010408 
$0$0A00056101012. 
TOSOAQDN02Z6201L01LeJ 
UOSOA0002910104ZY 
VOS0AQ00236040124 
WOSOA000S120101¢F 
XOSOAD0OS4S304 046 
yosoAog0297010126 
Z089A0004980101ZH 
eosoacgo2270101Z2vV 
1080A0000440101Z3 
%OSOAG00248010124 
s0SQA000279010142U 
#9S0A000469010128 
1050A000454010126 


OLe1QgieoDGy 3321300000 
1080a000463010412" 
Z0SOA0COL84010L6K 
30S0A00021501017~— 
40S0400010501012P 
5oSoAgoo2a%0101e63 
60S040000700101Z2F 
70S0A0000990401Z9 
8050A0001200101Zm 
99S9A000154012022' 
(050A00004101012Z, 
HOSOADDDOA7OL0L]L 
@0$0A0000350101Z\ 
1oSoacoo0eséor0i7t 
>0$0A0000870101%7 
705040004570101Z2! 
0S0A00030502012D 


Appendix A. 


Reserved Words 


I-D-S RESERVED WORDS 


I-D-S uses all the reserved words specified for COBOL. In addition, it 


employs the reserved words listed below. 


on both these lists for data-names. 


ABORT 
ALLOWED 

ANY 
AUTHORITY 
AUTHORITY-KEY 
BUFFER 

CALC 

CCBLOC 
CCBLOXK 
CHAIN 
CHAIN-ORDER 
CURRENT 
DEBUG 
DELETE 
DIRECT 


DIRECT- REFERENCE 


DUPLICATES 


EACH 

ERROR- REFERENCE 
FIELD 
FIRST-REFERENCE 
HEAD 

IDS 
IDS-SPECIAL-NAMES 
INTERVAL 

LAST- REFERENCE 
LINKED 

MASTER 

MATCH- KEY 

MD 

MODIFY 

NEAR 

PAGE- RANGE 
PRIOR 


I-D-S GENERATED GMAP SYMBOLS 


GMAP symbols defined in 
reserved system symbols. 


The user must avoid using words 


PROCESS 
RANDOMIZE 
REC-FILE 
RECORD-TYPE 
REPLACE 
RETRIEVAL 
RETRIEVE 
SORTED 
STORE 

SYN 
SYNONYM 
TABLE 
TRACE 
UNIQUE 
UPDATE 
VIA 
WITHIN 
WORKING 


location field must not conflict with 


(See GE-600 Line Programming Reference Manual, 


SO 


CPB-1004.) Symbols in the form LLNNNN, where L is any letter and N is a 
number, must not be defined in the location field of GMAP statements. 
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Appendix B. I-D-S Error Conditions 


Two types of error conditions may occur during I-D-S program execution. 


The code, I-D-S source, and description for error conditions of 
types are shown in the following sections. 


DATA-DEPENDENT ERROR CONDITIONS 


Testing for data-dependent error conditions must be incorporated in 
procedural logic of the user program. Codes for this type of error 
stored in the communication cell ERROR-REFERENCE for reference by 
user program. The various codes are listed in the following table. 
each code is shown the I-D-S source of the error condition and 
description as printed by the TRACE option of the USE statement. 
description will be printed if the TRACE option is selected. (See 
USE description in Chapter 3 for an example of TRACE output.) 


The key to abbreviations in the descriptions is shown below: 


RT - record type MT - master record type 
REF - reference code DT - detail record type 


both 


the 
are 
the 
With 
its 
This 
the 


XXXX - variable inserted by TRACE 


Error Code Source Description from Trace 
ROL QASC No current record reference code 


record type XXXX 


RO2 QASC Record retrieved logically 
deleted RTXXXX REFXXXXXXXX 

RO3 QASC Request retrieval of record 
RTXXXX got RTXXXX 

RO4 QASC No record on chain MTXXXX-DTXXXX 
Or structure error for record 
type XXXX 

RO5 QGTC Retrieve current, current equals 


zero rec-type XXXX 
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RO6 QGTD Retrieve direct and direct refer- 
ence equals zero 


RO7 QGTD Retrieve direct and record is 
logically deleted 


R08 QMRA Line number not on specified page 
ref code XXXXXXXX 
ROQ QBIC Page requested is not allocated 
QSMT reference code XXXXXXXX 
R10 QDLT Illegal delete request of RTXXXX 
want RITXXXX 
R11 QMDF Illegal modify request of RTXXXX 
want RTXXXX 
R12 QMNO Working storage for page range 
QCAL zero record type XXXX 
DO1 QTLN Store of unallowed duplicate 
record type XXXX 
Sol OMNO No space available for record 
type XXXxX 


ERROR CONDITIONS CAUSING ABORT 


Improper use of I-D-S functions, invalid data file definition, and 
unrecoverable hardware malfunctions cause an automatic trace and abort 
of the user program. In addition, a memory dump occurs. 


Whenever an I-D-S program aborts, the I-D-S data file is first CLOSED, 
with the appropriate pages restored to the mass storage device. 


If the trace cannot acquire a link on mass storage for an overlay, the 
following error comment may occur: 


CANNOT TRACE ERROR, INADEQUATE SPACE 


The various abort reason codes are listed in the following table. With 
each code is shown the I-D-S source of the error condition and its trace 
description. 


Note that while they are included in this table, codes 65 through 88 are 
not associated with an abort condition, but have been added solely to 
permit the printing of an appropriate error message while TRACE-ing the 
non-fatal errors discussed above. These codes may be encountered in a 
memory dump, or among the inner workings of the I-D-S subroutines, but 
will otherwise be invisible to the user. 
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2a2 


The key to 


RT - 
REF - 
CC. = 


Reason Code 


04 


05 


06 


07 


08 


09 


10 


et 


12 


13 


14 


abbreviations in the descriptions is shown below: 


record type 
reference code 
communication 


control 


QAUT 


QSMT 


QRLN 


QRLN 


QRLN 


QRLN 


QASC 


QASC 
QDLT 
QSTO 
QASC 
QGTD 
QRLN 


QHED 


Source 


MT - master record type 
DT - detail record type 
XXXX - variable inserted 


by TRACE 


Description from Trace 


Authority key does not match 
record type XXXX 


No records returned from sort 


Read error - check error refer- 
ence in CC block 


Record retrieved logically 
deleted RTXXXX REFXXXXXXXX 


No position prior pointer chain 
MTXXXX - DTXXXX 


No detail definions for this 
chain MTXXXX 


Retrieval via missing for record 
type XXXX 


Detail in too many chains record 
type XXXX or/master of too many 
chains record type XXXX 


No unique field for primary 
record - record type XXXX 


No record definition has been 
established 


Chain next equal zero chain - 
MT XXXX-DTXXXX 
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tt 
Pal 


16 


17 


18 


Lg 


20 


24 


25 


26 


27 


29 


30 


31 


32 


33 


34 


35 


QDLT 
QMDF 
QSTO 


QMDF 
QMOV 


QDLT 


QFWD 


QGDE 


QGDE 


QSTO 


QSTOR 


QTYP 
QRLN 


QDLT 
QUDC 
QRLN 
QMRA 
QSBF 


QSMT 


QBIC 
QSMT 


QIVv3 
Qiv4 
QFWD 
QIOS 


QSMT 
QBIC 


Field of modify/move not in 
record type XXXX 


No current record of program 
on delete 


Retrieve next in chain no 
current exists MTIXXXX-DTXXXxX 


Invalid control definition 
record type XXXX 


Control field error, equals 
zero for record type XXXX 


No unique field on store 
for record type XXXX 


No storage chain specified 
for record type XXXxX 


Record retrieved not 
specified for chain 
MT XXXX—-DTXXXX 


Delete action list is 
invalid 


No position next pointer chain 
MT XXXX-DTXXXX 


Record size conflict for record 
type XXXxX 


Attempt to write not update, 
reference code XXXXXXXX 


Invalid page size for reference 
code XXXXXXXX 


Page requested is not 
allocated reference code 
XXXXXXXX 


Read/write error 


No empty buffer for REND 
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ae 


53 


54 


aE, 


56 


57 


58 


oo 


60 


QRDN 


QTLN 


QTLN 


QTLN 


QTLN 


QBIC 


QDLN 


QTLN 


QIV3 


QTLN 


QRLN 


QOPE 


Attempted update while in READ 
only mode 


Record cannot be linked 
chain MTXXXX-DTXXXxX 


Error trying to retrieve 
prior chain MTXXXX-DTXXXX 


Error trying to retrieve 
next chain MTXXXX-DTXXXX 


Error trying to retrieve new chain 
MT XXXX-DT XXXX 


Page read is not page requested, 
reference code XXXXXXXX 


Next of chain is equal to zero 
chain MTXXXX-DTXXxXxX 


Attempt to link, next equals 
zero chain MTXXXX-DTXXXX 


Inventory read not one 
requested 


Next in chain not retrievable 
chain MTXXXX-DTXXXX 


Error in file definition at 
open time 


(See Error Code "RO1") 
(See Error Code "R02") 
(See Error Code "R03") 
(See Error Code "R04") 
(See Error Code "R05") 
(See Error Code "R06") 
(See Error Code "R07") 
(See Error Code "R08") 
(See Error Code "R09") 


(See Error Code "R10") 
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123 
76 
80 
88 


129 


130 


All others 


QCHN 
QDBG 
QDLT 
QGET 
QGTC 
QGTD 
QGTE 
QHED 
QMDF 
QMOV 
QRLN 
QSTO 


QCHN 
QDBG 
QDLT 
QGET 
QGTC 
QGTD 
QGTE 
QHED 
QMDF 
QMOV 
QRLN 
QSTO 


(See 
(See 
(See 
(See 


File 


Error 


Error 


Error 


Error 


Code 
Code 
Code 


Code 


psa 
eRe) 
"DO1") 


"SO1") 


unopened but access requested 


Primary subroutine entry during 


error processing 


Error code undefined 
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Appendix C. GE-600 COBOL/I-D-S/FORTRAN 
Communication and Overlaying 


This appendix explains the procedures and techniques to follow when 
overlaying a COBOL program, using the Integrated Data Store (I-D-S) 
software and mixing FORTRAN programs with COBOL or the COBOL/I-D-S 
software on a GE-600 system. 


OVERLAYING A COBOL PROGRAM 


Basis for Overlaying 


Most programs should be segmented and overlayed when they become large. 
The memory allocated to a program will vary among sites. That is, some 
Sites will have a billing formula to compute the cost of a computer run. 
If a particular computer run requires, for example, more than 40k of 
memory, the user's cost will have a very drastic increase after this 
limit has been reached. 


In a multiprogramming system, the more memory required for a particular 
program decreases the effectiveness of the overall system. So, there is 
a justification for increasing the charge for a program when a set 
memory limit has been exceeded. 


Many programs can be overlayed to reduce their memory requirements. 
These programs may have sections that are utilized only once or just a 
few times. These sections definitely do not have to reside in memory for 
the entire duration of a computer run. Other sections which do not have 
direct references to one another can be swapped in and out of memory, 
also under user control. 


Segmentation 


To accomplish overlaying, the program must be divided into subroutines, 
subprograms, or segments, whichever term you wish to choose. The term 
subprogram is used in this appendix. This program, when divided, will 
consist of numerous subprograms, each compiled separately or each 
appearing to be an entity or program. 


ZF 


Thus, each subprogram will be a separate COBOL compilation, each with an 


Identification Division, Environment Division, Data Division, and 
Procedure Division. Each program will have a uniqueness to depict that 
they are subprograms. These features, imbedded in the programs, are 


various transfers, entry points, exits, and common data storage areas. 


Communication Between Subprograms 


Once a subprogram exists, the means of communicating with the other 
subprograms (and also examining constant or variable data used in 
different subprograms) must be accomplished. 


First, the method of passing constant or variable information between 
the subprograms. In COBOL, use the labeled common area method. These 
areas are defined in each subprogram that use any of the constant or 
variable information. The following example will show how to set up’ the 
labeled common areas so that the different subprograms can examine the 
Same data. 


Subprogram MAIN 


000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. MAIN. 


000140 ENVIRONMENT DIVISION. 


000180 SPECIAL-NAMES,. 
000190 BLOCK 31 IS ENTRY-REC THRU LAST-REC. 


000320 DATA DIVISION. 
000330 FILE SECTION. 


000500 WORKING-STORAGE SECTION. 
000510 O01 ENTRY-REC. 


000520 02 OTHER-LEVELS SIZE IS 48 NUMERIC. 
000530 01 LAST-REC. 
000540 02 MORE-LEVELS SIZE IS 42 NUMERIC. 
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Subprogram NEXTPG 


000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. NEXTPG. 


000120 ENVIRONMENT DIVISION. 


e 


000150 SPECIAL-NAMES. 
000160 BLOCK 31 IS REC-ENTRY THRU REC-LAST. 


000400 DATA DIVISION. 
000410 FILE SECTION. 


000550 WORKING-STORAGE SECTION. 
000560 O01 REC-ENTRY. 


000570 02 DATA-HERE SIZE IS 48 NUMERIC. 
000580 O01 REC-LAST. 
000590 02 MORE-DATA SIZE IS 42 NUMERIC. 


The preceding example shows the entries necessary for communication in 
the Environment Division and Data Division of two subprograms. The 
labeled common area is the same in both since Block 31 wasS mentioned, 
and the size of the O01 records is consistent. 


At load time, one labeled common area called C3l (COBOL always prefixes 
the integer with the Character C) will be generated. The total size will 
be 90 characters. In subprogram MAIN, references to the common area 
(C31) will be by the name OTHER-LEVELS and MORE-LEVELS; whereas in 
subprogram NEXTPG, references to this same common area (C31) will be by 
the name DATA-HERE and MORE-DATA. 


Since subprograms MAIN and NEXTPG are compiled separately, the names can 
be the same or different. The important concepts to remember from this 
example are that only one labeled common area (C31) will be generated 
when subprogram MAIN is loaded, and any subsequent subprogram referring 
to the identical area (C31) will have its references adjusted to this 
area. 


When a COBOL program is divided into subprograms, transferring control 
during execution from one subprogram to another is done by using’ the 
CALL statement. If a return to the calling subprogram is desired, then 
the EXIT statement is used. 


The following example shows the basic method of using the CALL and EXIT 
statements. 
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Subprogram SNOOPY 


00001 010010 IDENTIFICATION DIVISION. 
00002 010020 PROGRAM-ID. SNOOPY. 


00149 040010 PROCEDURE DIVISION. 


00191 041080 ENTER LINKAGE MODE. 
00193 041100 CALL CHKSEG 


Transfer is to the PROGRAM-ID whose location is the first 
executable statement in the PROCEDURE DIVISION of subprogram 
CHKSEG,. 


Subprogram CHKSEG 


00001 010010 IDENTIFICATION DIVISION. 
00002 010020 PROGRAM-ID. CHKSEG. 


00092 040010 PROCEDURE DIVISION. 


00104 043120 200-CALL-CK-END. 
00105 043150 EXIT. 


When EXIT is reached, execution returns to the next statement 
after CALL CHKSEG in subprogram SNOOPY. 


NOTE: This example consists of excerpts taken from the program included 
with this appendix. 


Transferring control to entries other than the PROGRAM-ID is 
accomplished by defining ENTRY POINTS in the program referred to. By 
using the ENTRY POINT statement, a SYMDEF is generated making entry 
possible at that particular point from any other subprogram. 
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When ENTRY POINT is written in a subprogram to return to the calling 
subprogram, the EXIT statement with the name of this ENTRY POINT is 
written. 


The following illustrates the proper usage of the ENTRY POINT and EXIT. 


$ FORTRAN 
COMMON /C20 /ITABLE (20) 


CALL SNOOPY 
CALL ENTABC 
The CALLs above are from a FORTRAN 
subprogram. They could have been from 
a COBOL subprogram which had ENTER 
LINKAGE MODE preceding each CALL. 
$ COBOL 


00001 010010 IDENTIFICATION DIVISION. 
00002 010020 PROGRAM-ID. SNOOPY. 


00150 040022 PROCEDURE DIVISION. 


00240 044014 ENTER LINKAGE MODE. 
00241 044015 ENTRY POINT ENTABC. 
00242 044016 ENTER COBOL. 


00349 045261 309-PROGRAM-EXIT. 


00350 045262 EXIT ENTABC. 
00351 045263 310-SNOOPY-EXIT. 
00352 045280 EXIT PROGRAM, 


NOTE: This example consists of excerpts taken from the program included 
with this appendix. 
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Overlaying Procedure 


The program iS now chopped into many subprograms; each contains the 
necessary statements to refer to other subprograms. 


To overlay, a few more statements have to be inserted into the 
subprograms. These statements are the CALL's to load specific 
subprograms from the H* file. In an overlay job, the overlays are not 
retained in memory but are stored on a peripheral to be loaded only when 
requested by the user. (See GE-600 Line General Loader, CPB-1008 for a 
complete explanation of the general overlaying method.) 


There are two subroutines in the subroutine library (L* ) to load the 
overlays. They are LINK and LLINK. When overlaying a program, the CALL 
LLINK loads the overlay and returns control to the statement following 
the CALL. The CALL LINK loads the overlay and returns control to the 
overlay. It is not possible to return to the statement following’ the 
CALL LINK after executing the overlay. Use the CALL LLINK so that you 
can retain control in a situation where a main subprogram will control 
transfer to an overlay brought into memory. 


The following example illustrates the procedure to follow when 
overlaying a COBOL program. In the example, the subprogram SNOOPY 
resides in memory the duration of the execution, and subprograms CHKSEG, 
SAVSEG, and LOASEG are loaded into memory by the CALL LLINK' statements 
located in SNOOPY. 
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$ SNUMB 
$ IDENT 
$ COBOL 
00001 010010 
00002 010020 


00033 020010 


00052 020300 
00054 020310 
00055 020320 
00056 020330 


00149 040010 


00191 041080 
00192 041090 
00193 041100 


00199 041160 
00200 041170 
00201 041180 


00207 042030 
00208 042040 
00209 042050 


$ LINK 
$ COBOL 
00001 010010 
00002 010020 


00092 040010 


00104 043120 
00105 043150 


12345 
HA963,ERICKSON 


IDENTIFICATION DIVISION. 
PROGRAM-ID. SNOOPY. 


DATA DIVISION. 


e 


WORKING-STORAGE SECTION. 


77 SEG-l1 PICTURE X(6) VALUE IS "LINKAA". 
77 SEG-2 PICTURE X(6) VALUE IS "LINKBB". 
77 SEG-3 PICTURE X(6) VALUE IS "LINKCC". 


PROCEDURE DIVISION. 


ENTER LINKAGE MODE. 
CALL LLINK USING SEG-1 
CALL CHKSEG 


ENTER LINKAGE MODE. 
CALL LLINK USING SEG-3 
CALL LOASEG 


ENTER LINKAGE MODE. 
CALL LLINK USING SEG-2 
CALL SAVSEG 


LINKAA 


IDENTIFICATION DIVISION. 
PROGRAM-ID. CHKSEG. 


PROCEDURE DIVISION. 


200-CALL-CK-END. 
EXIT. 
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$ LINK 
$ COBOL 
00001 010010 
00002 010020 


00091 040010 


00103 043200 
00104 043230 


emma ee 


$ LINK 
$ COBOL 
00001 010010 
00002 010020 


00091 040010 


00103 043160 
00104 043190 


IDENTIFICATION DIVISION. 
PROGRAM-ID. SAVSEG. 


PROCEDURE DIVISION. 


200-CALL-SA-END. 
EXIT. 


LINKCC ,LINKBB 


IDENTIFICATION DIVISION. 
PROGRAM-ID. LOASEG. 


PROCEDURE DIVISION. 


200-CALL-LO-END. 
EXIT. 


NOTE: This example consists of excerpts taken from the program included 
with this appendix. 


USING I-D-S WITH A COBOL OVERLAYED PROGRAM 


Since the I-D-S statements are coded within the COBOL subprograms, there 
are certain procedures that must be considered. 


A Communications Control Block (CCBLOC) must be established in a labeled 
common area. Normally, the CCBLOC is located in the COBOL program and 
the remaining structure is located in a labeled common area (.IDS...). 
When a program is divided into subprograms, each subprogram must be able 
to examine the CCBLOC. If it is isolated in the first subprogram loaded, 
then the remaining subprograms loaded will not be able to communicate 
with the CCBLOC. 
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To establish the CCBLOC in a labeled common area, write the following 
coding: 


00014 010060 ENVIRONMENT DIVISION. 


00018 010091 SPECIAL~NAME. 
00023 010096 BLOCK nn is CCBLOXK. 
(nn is a l or 2 digit integer). 


This is essentially the most important feature to realize when 
overlaying a COBOL/I-D-S program. 


Another method to consider is placing the structure in a different 
labeled common area other than the .IDS.. area. Since the program is 
segmented, it is now possible to execute more than one I-D-S file. In 
this situation the first file must be closed before the second can be 
opened and executed. In other words, only one file can be in the open 
mode. The reason for this is that the page buffers for a file must be 
flushed before executing another file. 


FORTRAN - INTERFACING WITH COBOL AND I-D-S 


A FORTRAN program can easily communicate with the COBOL/I-D-S'- software. 
The knowledge that a FORTRAN user needs of COBOL is minimal, and if a 
FORTRAN user would like to utilize the I-D-S features, again the COBOL 
coding required and understanding can be minimal. 


How to Communicate Between Compilers 
Reiterating what was mentioned regarding COBOL segmentation-- 


1. Labeled common areas generated by the COBOL compiler are a_ one 
or two integer number always prefixed by the Letter C. 


2. Entries into the Procedure Division can be made by referring to 
the PROGRAM-ID or ENTRY POINT name. 


3. Return to the calling program is via the terminal EXIT 
statement of the EXIT name statement. 


With these facts about the COBOL compiler, a FORTRAN user can create a 
program using these two together. 
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il FORTRAN subprogram contains labeled common areas corresponding to 
the COBOL areas. Variables and/or constants stored in these areas should 
have the same classification. That is, if a variable has been defined as 
floating point in one subprogram, it is defined as floating point in the 
other. Illustration of the above statements is depicted in the following 
examples with the addition of I-D-S. 


i hee | 


Ss SNUMB 24788 
S$ IDENT HA963,ERICKSON 
$ OPTION FORTRAN 
S$ FORTRAN 
SUBROUTINE GENO 
COMMON/C35/IDATA,FLTNUM,IADD, ----- 
CALL MAINPG 
CALL SECPRG 
END 
Ss ENTRY GENO 
s USE -QMAX/1/,.QAREA/2000/,.QMIN/1/ 
S IDS 


000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. MAINPG. 


020010 ENVIRONMENT DIVISION. 

020020 SPECIAL-NAMES. 

020030 BLOCK 20 IS CCBLOXK. 

020040 BLOCK 35 IS ENTRY-REC THRU LAST-REC. 


030100 IDS SECTION 
030101 MD IDS-PORTION PAGE CONTAINS 1920 CHARACTERS 


030102 FILE CONTAINS 1000 PAGES. 

030103 O01 ENTRY-REC ----------- 

030104 02 DATA-HERE SIZE IS 9(6) COMPUTATIONAL-3. 
030105 02 MORE-DATA SIZE IS 9(8) COMPUTATIONAL-2. 
030106 02 ADD-MORE-DATA SIZE IS 9(6) COMPUTATIONAL-3. 


O30115:-.01. -INNER=RECORDS -==s<<=ss+<-= 


030130 01 LAST-REC ------------ 
02 THATS-ALL SIZE IS 9(7) COMPUTATIONAL-2. 
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040010 PROCEDURE DIVISION. 


040200 GO TO MAIN-EXIT. 
040201 ENTER LINKAGE MODE. 
040202 ENTRY POINT SECPRG. 
040203 ENTER IDS. 

040204 RETRIEVE ENTRY-REC. 
040205 BACK-TO-FORT. 

040206 EXIT SECPRG. 


040207 MAIN-EXIT. 
040208 EXIT. 


040209 END PROGRAM. 

$ EXECUTE 

S DISC DF,X2R,2R 

$ DATA me) 

IDS CREATE FILECODE/DF/,BASESIZE/1000/,RANGE/1,1000/, 
ETC PAGESIZE/320/ 

S ENDJOB 


The contents of the labeled common area, C35, actually contain the I-D-S 
working storage area for all 02 levels beginning at record ENTRY-REC 
through record LAST-REC. Thus the equivalent values in C35 are _ the 
following: 


FORTRAN COBOL TYPE 

IDATA DATA- HERE Fixed Point Integer 
FLTNUM MORE~-DATE Floating Point 

IADD ADD-MORE-DATE Fixed Point Integer 


Consideration When Mixing Software 


The 01 levels are always begun at an even memory location. Problems 
could occur when trying to pass information between COBOL and FORTRAN in 
the labeled common areas. To avoid this, check the labeled common size 
generated from the COBOL compiler and adjust the FORTRAN subprogram so 
that the correct data will be examined. 


FORTRAN programs, at execution time, have file control blocks’ and 
buffers generated by the loader in the unused portion of slave memory. 
I-D-S checks word 37 (octal) of the slave prefix area to determine the 
size of unused memory and establishes as many page buffers as possible 
in this area. So now there is a major conflict of interest. Solution: At 
load time, create a labeled common area for the page buffers and other 
I-D-S control tables by inserting a $ USE control card. Now the FORTRAN 
I/O routines can use unused slave memory without conflict. 
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897 


$$ 


0004 
0002 
0003 
0004 
0008 
0006 
0007 
0008 
0009 
0010 
0012 
0014 
0015 
0017 
0016 
0020 
0021 
0023 
0024 
0025 
0026 
0027 
002g 
0029 
0030 


86226 ENTERED 319609 aT @0,024 FROM CD RDR 


SNUMB 86226 
IDENT HA965+ RUDOLPH 


OBJECT 

OBVECT SDL-2-CHG00 
LINK LINKAA 

OBJECT SDL=-2-CHG00 
LINK LINKBBsLINKAA 
OBJECT SDL~2-CHGO0 
INK LINKCC,LINKSB 
OBVECT SDL-2-CHGO0 
EXECUTE 

LIMITS 25K 

QO1sc H®,X2S,8R 
DISC TF,X1S,9R 


INCREASE STORAGE SIZE 


DATA »Q TEMPORARY I-D-S DATA FILE FOR DIRSCTIVES 
SYSOUT PR ASSIGN PRINTER TO QUTPUT MEDIA CONVERSION 
DATA CR TEMPORARY FILE FOR CARD INPUT 

Ss ENDJO8 


TOTAL CARD COUNT THIs JOB * 000160 


® BEGIN ACTIVITY ~O4- QUTU 02/06/70 $wWs910000000000 
@ NORMalL TERMINATION AT 003710 INpIcaTORS 5920 
START ae LINES 20 PROC Boece 
sToP 027 LIMIT 5000 LIMIT 9,050 
LAPSE 0,001 FC D TYPE BUSY IP/AT FP/RT 
.O R MASS « 15 0 0 
Te R MASS @ 87 0 0 
Ai S MASS 704 0 0 


LIST 20 LINES 


® PEGIN ACTIVITY -02- GELOAD 02/06/70 SW2009000000000 


® NORMAL TERMINATION AT 046770 INDICATORS 1000 
STaRT 9,027 INES 543 PRoc 09,0019 
sTOP 0,033 LIMIT 5000 LIMIT 0,0500 
LAPSE 0,006 FC D TYPE BUSY IP/AT FR/RT 

Th DO MASS 119 0 0 
+@ R MASS # 38 0 0 
CR R MASS # 40 0 0 
R® R MASS # 360 0 0 
He D MASS 2694 0 0 
L® R MASS 4731 0 ) 


PROGRAM QuTY INITIALIZE TEMPORARY DATA BASE 

LIMITS 24K CORE REQUIREMENTS OF QUTU 

DISC A1,X1S,9R TEMPORARY MASS STORAGE FILE 

DATA +Q TEMPORARY J*D-S DATA FILE FOR DIRECTIVES 
DATA ]° DATA STORAGE FILE 

OPTION FORTRAN 

USE sQMAX44/,, QAREA/L977/, ,QMIN/S/ 


F410} 66102057000000000 
110,598020570SNOO0PY00 


1145805020570CHKSEGO0 
1101611020570SAVSEGOG 


140:619020570L0ASEGO0 


TEMPORARY MASS STORAGE FILE 


1/0 
LIMIT 


Ts/ac 


170 
LIMIT 


1s/ae 


o'000 


Fa/#E 


01003 


FS/#E 


IU 13 
Cu 43 


ADDRESS 


0-04-01 
O-O4°01 
0-01-03 


IU 43 
Cu a3 


ADDRESS 


MEMORY 
MeT 


Leste 


902 
902 
904 


MEMORY 
MeT 


Leste 


904 
903 
993 
902 
913 
325 


27K 
764 


697 


85091 01 02-05-70 14,810 


4 COMMON/C20/ITABLE(24)/C21/1CKsILO+ISA 

2 * 

3 CALL SNOOPY 

4 * 

5 CALL ENTABC 2 
6 * 

7 IToTeICKeILo+ISa 3 
8 PRINT 11+ ICK 4 
9 11 FORMAT(42H NUMBER OF CHEEKING ACCOUNT RECORDS READ 2£,16) 7 
10 PRINT 122 ILO : 7 
14 12 FORMAT( 30H NUMBER OF LOAN RECORDS READ s.16) 10 
12 PRINT 1355 ISA 10 
13 13 FORMAT(40H NUMBER OF SAVING ACCOUNT RECORDS READ «,16) 13 
14 PRINT 15, y7OT 13 
15 15 FORMAT(31H TOTAL NUMBER OF RECORDS READ w,16) 16 
16 STOP 16 
17 END 17 


23260 WORDS OF MEMORY USED BY THIS COMPILATION 


NOTE: This is a FORTRAN program that was compiled illustrating just a 
labeled common area (C20) and two CALL statements which reference 
COBOL programs. 


OLT 


65091 01 02-05-70 14,814 


PREFACE 
PROGRAM BREAK i132 
COMMON LENGTH i) 
V COUNT BITS é) 


PRIMARY SYMDEF ENTRY 
eofpe toe 0 


SECONDARY SYMDEF ENTRY 


BLOCK LENGTH 


1 C20 30 
2 C21 3 


SYMREF 


ENTABC 
»FCNV. 
-FEXIT 
-FFIL. 
.F PRN, 

10 SNOOPY 

END OF SINARY CARD 00000006 

132 1§ THE NEXT AVAILABLE LOCATION, GMAP AID 051169 

THERE WERE NO WARNING FLAGS IN YHE ABGVE ASSEMBLY 

#® 18715 WORDS oF MEMORY WERE USED Sy GMAP FOR THIS ASSEMBLY. 


NOU a GW 


TL2 


86222 


Oi Oe2- 


05-70 14,799 GE600 INTEGRATED STORE TRANSLATOR tSDL-2 CHG00 


IDS ALTER NOS, 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 


010010 
010020 
010030 
010040 
010050 
010051 
010052 
010053 
010054 
010055 
010056 
010057 
010058 
010060 
010070 
010080 
010090 
0100914 
010092 
0100934 
010094+« 


010095 
010096 
010200 
010210 
010215 
010220 
0102256 
010230 
010240 
010245 
010250 
020010 
020020 
020021 
020022 
020023 
020024 
020050 
020040 
020050 
020060 
020070 
020080 
020090 
020200 
020210 
020220 
020230 


IDENTIFICATION DIVISION, 

PROGRAM-ID. SNOOPY, 

AUTHOR, GEORGE A RUDOLPH. 

DATE-WRITTEN, MAY 1969, 

INSTALLATION. G E = PHOENIX, 

REMARKS, THIS PROGRAM LOADS DATA FROM THE GAaD READER 

ONTO A TEMPORARY DISC FILE : 
DEPENDING ON YHE ACCOUNT TYPE ROUTINES ARE 
CALLED TO STORE THE DATA 

WHEN ALL OF THE RECORDS HAVE EEN 
STORED ON THE DATA BASE THEY aR® 
RETRIEVED AND PRINTED ON A CONTROL 
REPORT. 

ENVIRONMENT DIVISION, 

CONFIGURATION SECTION, 

SOURCE-COMPUTER, GE-635, 

OBJECT-COMPUTER. GE-635. 

SPECIAL~NAMES. 

GETIME IS TODAYS-DATE, 

DEFINES A LABLED COMMON AREA FOR THE [D$ AOMMUNICATION 
CONTROL BLOCK AND RECORD DEFINATIONS FOR SEGMENTATION 
BLOCK 21 1S NUCK THRU NUSA. 

BLOCK 10 I§ CCBLOXK. 

BLOCK 20 IS ENTRY@REC THRU LOAN~REC., 

INPUT-OUTPUT SECTION. 

FILE*CONTROL. : 
SELECT PRINT-UNJT ASSIGN TO PR FOR LISTINA,. 
SELECT CARD=-READER ASSIGN TO CR FOR CARDS. 
ASSIGN IDS FILE NAME AND DEVICE 
SELECT IDS TEST-FILE ASSIGN TO TF, 

1-O0-CONTROL. . 
APPLY SYSTEM STANDARD FORMAT ON PRINT<UNI?, 
APPLY SYSTEM STANDARD FORMAT ON CARD-READBR, 

DATA DIVISION. 

FILE SECTION, 

FD PRINT<UNIT 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS PRINT=LINE. 

01 PRINT-LINE PICTURE X(132). 

FD CARD-READER 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS CARDeIN. 


01 CARD-IN. 
02 ACCT-TyYPE PICTURE XX, 
88 LOAN-ACCT VALUE "LO", 
88 SAVE-ACCT VALUE "SA". 
88 CHECK-aCCy VALUE "CK, 
02 CUST-NO-IN PICTURE 9(6), 
02 ACCT-NQ-IN PICTURE 9(6), 
02 CUST-NAME-IN PICTURE X(26@). 


CLC 


86222 O01 


IDS ALTER NOS. 


00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 


920240 
020250 


02-05-70 


02 
ge 


14.799 GE609 INTEGRATED STORE TRANSLATOR 


AMOUNT-IN PICTYRE 9(10)u99. 


FILLER PICTURE X(34) 


020500 WORKING<STORAGE SECTION, F 
CODING TO DEFINE THE LINKAGE FOR SEGMENTATION 


020305 
020310 
020529 
020330 


020340 
020350 
020360 
020370 
020580 
020599 
020400 
020410 
020420 
020430 
020440 
020450 
020460 
0204790 
020480 
020490 
020500 
020510 
020529 
020530 
029949 
020559 
020560 
020570 
020580 
020590 
020600 
020610 
020620 
020639 
020649 
020659 
020660 
020979 
020680 
020690 
020700 
020710 
020720 
020730 


77 
77 
77 
77 
77 
77 
01 


01 


01 


SEG-1 PICTURE x(6) VALUE IS "LINKAA” 
SEG-2 PICTURE x(6) VALUE IS "LINKBB". 
SEG-3 PICTURE x(6) VALUE IS "LINKCE"™. 
NUCK PICTURE 9(6) COMPe1. 


NULO PICTURE 9(6) COmP-1., 
NUSA PICTURE 9(6) COMP=1. 


WORK=LINE, 
02 HEAD-ONE. 
03 FILLER PICTURE X(44). 
03) TITLE=2 PICTURE X49). 
03 FILLER PICTURE xX(42). 
02 HEAD-TWO REDEFINES HEAD-ONE. 
03 FILLER PICTURE X(62). 
03 MONTH-P PICTURE 29. 
03 DASH-1 PICTURE X. 
03 Day-p PICTURE 29, 
03 DASH-2 PICTURE X. 
03 yEAR-P PICTURE 99. 
03 FILLER PICTURE X(62). 
02 HEAD-THREE REDEFINES HEAD~TWO. 
03 FILLER PICTURE X(24). 
03 TITLE~10 PICTURE X¢13). 
03 FILLER PICTYRE X(8), 
0S TITLE-20 PICTURE X(13). 
03 FILLER PICTURE X(8). 
03 TITLE-30 PICTURE X(10). 
03 FILLER PICTYRE X(14). 
03 TITLE=40 PICTURE xX(6), 
03 FILLER PICTURE X(32). 
02 DETAIL-LINE REDEFINES HEAD-THREE, 


02 
02 
02 


03 FILLER 


PICTURE X(28). 


627292772199. 


03 CUST-NO-P PICTURE 9(6).. 
03 FILLER PICTURE X(16). 
03 TYPE-P PICTURE X(8). 
03 FILLER PICTURE X(14). 
03 ACCT-NO=P PICTURE 916), 
oS FILLER PICTURE X(9). 
03 AMOUNT~P PICTURE 2+22Z 
03 FILLER PICTURE X(28). 
DATE~AND=-TIME, 

MONTH PICTURE 99. 
DAY PICTURE 99, 
YEAR PICTURE 99. 
TIME PICTURE 9(8) 


Q2 


DISPLAY~FIELD 


USAGE IS COMPUTATIONAL -1. 
PICTURE 9(8). 


tSDL-2 CHGOO 


ELC 


86222 01 02-05-70 14,799 GE600 INTEGRATED STORE TRANSLATOR tSDL=2 CHGOO 
IDS ALTER NOS, 


00101 030010 {pS SECTION. 
G01 CCBLOXK , 
Q2 BIRECT-REFERENCE SIZE IS 8 USAGE IS GOMPUTATIONAL~¢% 
SYNCHRONIZED RIGHT, : 
02 FIRST-REFERENCE SIZE IS 8 USAGE IS COMPUTATIONAL =~1 
SYNCHRONIZED RIGHTY. 
O02 LAST*REFERENCE SIZE IS 8 USAGE IS COMPIITATIONAL=1 
SYNCHRONIZED RIGHT. : 
O2 RECORD-TYP& SIZE I[§ 4 USAGE IS COMPUTAPIONAL #1 
SYNCHRONIZED RIGHT. . 
02 REC-FILE SIZE IS 6 CLASS IS ALPHANUMERIC 
VALUE IS wOoooTr., 
02 ERROR-REFERENCE SIZE IS 3 CLASS IS ALPWANUMERIC 
SYNCHRONIZED RIGHY, 

00102 6030020 MD TEST+FILE 


00103 030030 PAGE CONTAINS 1920 CHARACTERS 

00104 030040 FILE CONTAINS 100 PAGES,’ 

00105 030050 01 ENTRY-REC 

00106 030060 TYPE I§ 040 

00107 030070 RETRIEVAL VIA CALC CHAIN 

00108 030080 PAGE-RANGE IS 1 TO 1. 

00109 030090 02 ENTRY-FIELD PICTURE 9(6), 
00110 o30200 98 CALC CHAIN DETAIL 

00111 030210 RANDOMIZE ON ENTRY¥-FIELD, 

00112 030230 98 CUST-NO-CHN CHAIN MASTER 

00113 030240 CHAIN“ORDER IS SORTED. 

00114 030250 01 CUST-NO-REC 

00115 030260 TYPE IS 020 

00116 030270 RETRIEVAL VIA CUST-NO=CHN CHAIN. 

00117 030290 02 CUST-NO~-DSU PICTURE 9(6). 
00118 030300 02 CUST-NAME-DSU PICTURE x(26). 
00119 031010 98 CUST-NO-CHN CHAIN DETAIL 

00120 031020 DUPLICATES NOT ALLOWED 

00121 031030 ASCENDING KEY IS GUST-NO~DSU 

00122 031040 SELECT CURRENT MASTER, 

00123 031050 98 CHECK-CHN CHAIN MASTER 

00124 031060 CHAIN-ORDER 1S FIRST. 

00125 031070 98 SAVE-CHN CHAIN MASTER 

00126 031080 CHAIN-ORDER IS FIRST. 

00127 031090 98 LOAN-CHN CHAIN MASTER 

00128 031200 CHAIN-ORDER IS FIRST. 

00129 031210 04 CWHECK-REC 

00130 031220 TYPE IS 021 

00131 031230 RETRIEVAL VIA CHECK=CHN CHAIN, 

00132 031250 02 CUST-NO-CkK PICTURE 9(6), 
00133 031260 02 ACCT-NQ-CK PICTURE 9(6), 
00134 031270 02 AMOUNT-CK PICTURE S9(40tV99. 
00135 031280 98 CHECK=CHN CHAIN DETAIL 

00136 031290 SELECT CURRENT MASTER, 


00137 052010 01 SAVE-REC 


PLC 


86222 01 02-05-70 14,799 GE600 INTEGRATED S‘ORE TRANSLATOR tSDLe2 CHGCO 


IDS ALTER NOS, 


00138 052020 TYPE IS 022 

00139 032030 RETRIEVAL VIA SAVE-CHN CHAIN, 

00140 032050 02 CUST-NO-SA PIC™URE 9( 6). 
00141 052060 02 ACCT-NO-SA PICTURE 9(6), 
0014¢ 932079 02 AMOUNT-SA PICTURE S9(101V99, 
00143 032080 98 SAVE-CHN CHAIN DETAIL 

00144 032210 SELECT CURRENT MASTER, 

00145 032220 01 LoaAN-REC 

00146 032230 TYPE IS 023 

00147 032240 RETRIEVAL VIA LSAN-CHN CHAIN, 

00148 032260 02 CUST-NO-LO PICTURE 9(6), 
00149 032279 02 ACCT-NOQ-LO PICTURE 9(6), 
00196 032289 02 AMOUNT-LO PICTURE S9( 40199. 
00191 032299 98 LOAN-CKN CHAIN DETAIL 

00152 042320 SELECT CURRENT MASTER, 


00153 040010 PROCEDURE DIVISION, 
00154 040022 010-START. 


00155 040023 ACCEPT DATE-AND=TIME FROM TODAYS-DATE. 
00156 040024 OPEN INPUT CARL-READER 

00157 040025 OUTPUT PRINT<UNIT. 

00158 040030 OPEN IDS DATA @AsE 

00199 040040 ENTER IDS. 

00160 049050 OPEN, 

00161 040055 MOVE 009001 TO ENTRY-FIELC. 

00162 0400578 CREATE ENTRY RECORD 

00163 040060 ENTER IDS. 

00164 040070 STORE ENTRY-REC 

00165 040080 IF ERRO® GO TO 100-RET-MST-ENTRY-ERR, 
00166 040081 ENTER IDS. 

00167 040082 DEBUG CURRENT SUFFER 

00168 040083 RECORD 

0016% 040084 CCBLOC. 

00170 040090 020-READ-CARDS, 

00171 040100 READ CARD-READER AT END Go TO 310-SNOOPY-FXIT. 
00172 040110 IF LOAN-ACCT OR SAVE-ACCT OR CHECK-ACCT 
00173 040120 GO TO O30-FROCFSS-CARL. 

00174 040130 DISPLAY "INVALID CaRD CODE”. 

00175 64140 DISPLAY CARD-IN. 

00176 040150 GO TO D20-READ-CARDS. 

0017/ 040160 O030-PROCESS=CARD, 

00178 040170 ENTER IDS, 

00179 040180 RETRIEVE EXTRY-REC RECORD 

00180 0401990 IF ERROR GO TO 100-RET-MST-ENTRY~-ERR. 
00181 040200 040-RET-CyST-RET,. 

00182 047210 ENTER IDS. 

00183 040220 RETRIEVE NEXT RECORD OF CUST-NO-CHN CHAIN 
00184 040230 IF ERRO® GO TN 110-RET-MST-ERR ELSE 
00185 040240 IF ENTRY-REC RECORD Go TO DcO-STORE*MaT-REC 
00186 040250 ELSE MOVE. 


00187 &41010 IF CUST®NO-IN IS EQUAL TO CUST-.O0-DSU 


CLC 


86222 


01 02-05-70 14.799 GE600 INTEGRATED STORE TRANSLATOR 


IDS ALTER NOS, 


00188 
00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
O0221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00256 
00231 
090232 
00233 
00234 
002355 
002356 
00237 


041020 GO TO OS5S0-STORE-DETAIL. 

041030 GO TO O40"RET-CUST-REC, 

041040 O50-STORE-DETAIL, 

041050 IF LOAN®ACCT GO TO 060-STORE-LOAN. 

041060 IF SAVE*ACCT GO TO 070-STORE~SAVE,. 
ADD 41 TO NUCK. 

041065¢ CALL CHECKING SEGMENT 

041070« CREATES AND STORES CHECK-REC RECORD 

041080 ENTER LINKAGE MODE. 

041090 CALL LLINK USING SEG<-1 

041100 CALL CHKSEG 

041110 ENTER COBOL. 

041130 GO TO O020-READ=CARDS. 

041140 060-STORE=LOAN, 


ADD 3 TO NULO. 
0400450 CALL LOAN SEGMENT 


040050« CREATES AND STORES LOAN-REC RECORD 
041160 ENTER LINKAGE MODE, 

041170 CALL LLINK USING SEG-3 

041180 CALL LOASEG 

041190 ENTER COBOL. 

041210 GO TO 020-READ-CARDS, 


042010 070-STOCRE-SAVE, 
ADD 2 TO NUSA- 
042015« CALL SAVING SEGMENT 


042020¢ CREATES AND STORES SAv-REC RECORD 
042030 ENTER LINKAGE MODE. 

042040 CALL LLINK USING SEG~2 

042050 CALL SAVSEG 

042060 ENTER COBOL. 

042080 GO TO O020-READ-CARDS. 


042090 Q8C-STORE-MST-REC, 
0420914 CREATE AND STORE CUSTOMER NUMBER RECORD 


042100 MOVE CUST-NO-IN TO CUST-NO-DSU. 
042110 MOVE CUST=NAME*IN TO CUST-NAMB~DSU. 
042120 ENTER IDS, 

0421350 STORE CUST*NO-REC 

042140 IF ERROR GO TO 150-STORE-CUS*-REC-ERR. 
042141 ENTER JDS. 

042142 DEBUG CURRENT BUFFER 

042143 RECORD 

042143 ccCBLOC. 

042150 GO TO O050-STORE=DETAIL, 

043010 L00-RET-MST@ENTRY-ERR,. 

043020 DISPLAY “RETRIEVE ERROR". 

0439030 DISPLAY "FILE ENTRY RECORD". 

043040 Go TQ S00-wRAP=<uP, 

043050 J10-RET-MST-ERR, 

043060 DISPLAY "RETRIEVE ERROR". 

043070 DISPLAY "CUSTOMER RECORD", 


tSDL=2 CHGOO 


GL 


86222 01 02-05-70 14.799 GE600 INTEGRATED STORE TRANSLATOR 'SDL=-2 CHGOO 
IDS ALTER NOS. 


00238 043080 GO TO 040sRET-CUST-REC. 
00239 043210 150-STORE-CUST-REC=ERR. 

00240 043220 DISPLAY "STORE ERROR", 
00241 043230 DISBLAY "CUSTOMER RECORD". 
00242 043240 GO TO 020~READ@CARDS: 


00243 0432416 

00244 0432420 THIS 1S THE ENTRY PROINT ROUTINE THAT 
00245 0432436 1S CALLED BY THE FORTRAN PROGRAM 
00246 043244« 


00247 044014 ENTER LINKAGE MODE, 

00248 044015 ENTRY POINT ENTABC, 

00249 044016 ENTER COBOL. 

00250 044020 MOVE SPACES TO WORK=LINE. 

00251 044030 WRITE PRINT-LINE FROM WORK-LINE 

00252 044040 BEFORE ADVANCING YO TOP OF PAGE. 

00253 044045« SET UP AND PRINT REPORT HEADINGS . 

00254 044050 MOVE "CUSTOMER NUMBERS AND ACCOUNTS STOREN ON DATA FILE" 
00255 044060 TO TITLEot. 

00256 044070 WRITE PRINT=LINE FROM WORK-LINE BEFORE ADVANCING 2 LINES, 
00257 044080 MOVE SPACES TO WORK-LINE. 

00258 044090 MOVE MONTH TO MONTH-P, 

00259 044100 MOVE DAY TQ DAY=P, 

00260 044110 MOVE YEAR TO YEAR@P, 

00261 044130 MOVE "~" 79 DASW=4, DASH-2. 

00262 044140 WRITE PRINT=LINE FROM WORK-LINE BEFORE ADVANCING 2 LINES, 
00263 044150 MOVE SPACES TO WORK-LINE. 

00264 044160 MOVE "CUSTOMER NUMBER" TO TITLE~10. 

00265 044170 MOVE "TYPE OF ACCOUNT” TO TITLE-20. 

00266 044180 MOVE "ACCOUNT NO” TO TITLE=30, 

00267 044190 MOVE “AMOUNT” TO TITLE=40, 

00268 044200 WRITE PRINT=LINE FROM WORK-LINE BEFORE ADVANCING 2 LINES, 
00269 044210 MOVE SPACES TO WORK=LINE. 

00270 044220 MOVE 000001 TO ENTRY-FIELD. 

00271 044230 ENTER IDS. 

00272 044240 RETRIEVE ENTRY-REC RECORD 

00273 044250 IF ERROR GO TO 209-RET-ENT-ERR, 

00274 044260 2014GEY-CUST-CHN, 

00275 044270 WRITE PRINT“LINE FROM WORK-LINE BEFORE ADVANCING 4 LINES, 


00276 0442756 RETRIEVE AND PRINT CUSTOMER NUMBER RECORDS 
00277 044280 ENTER IDS, 


00278 044290 RETRIEVE NEXT RECORD OF CUST=NO-CHN CwAIN 
00279 044300 IF ERROR GO TO 210-RET-CUST-ERR ELSE 
00280 044310 IF ENTRY-REC RECORD GQ TO 206-CREATeERROR 
00281 044320 ELSE MOVE. 

00282 044330 MOVE CUST-NO-DSU TO CUST-NO-P, 


00283 044340 203-GET-CHECK-REC, 

00284 0443456 RETRIEVE AND PRINT DETAIL RECORDS OF CHECK-CHN CHAIN 
00285 044350 ENTER IDS, 

00286 0443560 RETRIEVE NEXT RECORD OF CWECK=CHN CHAIN 

00287 044370 IF ERROR GO TO 214-RET-CK-ERR ELSE 


LES 


86222 01 02-05-70 14.799 GE600 INTEGRATED STORE TRANSLATOR 1SDL-2 CHGOO 
IDS ALTER NOS, 


00288 044380 IF CUST-NO*REC RECORD GO 70 204-GET=SaVE-REC 

00289 044390 ELSE MOVE. 

00290 044400 MOVE "CHECKING" TO TYPE=P. 

00291 044410 MOVE ACCT-NO-CK TO ACET=NO-P, 

00292 044420 MOVE AMOUNT@CK YO AMOUNT~R. 

00293 044430 WRITE PRINT=LINE FROM WORK-LINE BEFORE ADVANCING 1 LINES, 
00294 044440 MOVE SPACES TO WORK=LINE. 

00295 044450 GO TO 203*GET=CHECK=REC, 


00296 044460 204~GET-SAYE-REC, 3 
00297 0444656 RETRIEVE AND PRINT DETAIL RECORDS OF SAVEsCKN CHAIN 
00298 044470 ENTER IDS. 


00299 044480 RETRIEVE NEXT RECORD OF SAVE-CHN CHAIN 

00300 044490 IF ERROR GO TO 212"RET-SA-ERR ELS& 

00381 044500 IF CUST-NO@REC RECORD GO YO 205-GETeLAAN-REC 

00302 044510 ELSE MOVE, 

00303 044520 MOVE "SAVINGS " TO TYPE-P. 

00304 044530 MOVE ACCT=NO-SA TO ACCT<“NO-P. 

00305 044540 MOVE AMOUNT=SA TO AMOUNT-R.- 

00306 044550 WRITE PRINT=LING FROM WORK-LINE BEFORE ADVANCING 4 LINES, 
00307 0445690 MOVE SPACES TO WORK=LINE- 

00308 044570 GO TO 204@GET=SAVE-REC, 


00309 044580 205-GET-LOAN-REC, 
00310 044585 RETRIEVE AND PRINT DETAIL RECORDS OF LOANwCWN CHAIN 


00311 044590 ENTER IDS. 

00312 044600 RETRIEVE NEXT RECORD OF LOAN*CHN CHAIN 
00313 044610 IF ERROR GO TO 213*RET~LO-ERR ELSE : 
00314 044620 IF CUST-NO-REC REGORD GO TO 201-GETe@CIIST-CHN 
00315 044630 ELSE MOVE. 

00316 044640 MOVE "LOAN " TO TYPE=P, 

00317 044660 MOVE ACCT-NO-LO TO ACCT-NO-P. 

00318 044670 MOVE AMOUNT=LO TO AMOUNT-R. 

00319 044680 WRITE PRINT=LINE FROM WORK-LINE BEFORE ADVANCING 1 LINES, 
00320 044690 MOVE SPACES TO WORK=LINE. 

00321 044700 GO TO 205"GET-LOAN-REC, 

00322 044710 206-CREAT-ERROR, 

00323 044720 WRITE PRINT=LINE FROM WORK-LINE BEFORE 
00324 044730 ADVANCING TO TOP OF PAGE, 

00325 044820 ENTER IDS. 

00326 044830 DEBUG CURRENT BUFFER 

00327 044840 RECORD 

00328 044850 CCBLOC 

00329 044855 TRACE CUST“NO=CHN CHAIN. 

00330 044870 GO TO 300-WRAP-UP, 

00331 044920 209-RET-ENT#ERR, 

00332 044930 DISPLAY "RETRIEVE ERROR". 

00333 044940 DISPLAY "FILE ENTRY RECORD". 

00334 044950 GO TO S00-wWRAP@=UP. 

00335 044960 210-RET-CUST-ERR, 

00336 044970 DISPLAY “RETRIEVE ERROR", 

00337 044980 DISPLAY "CUSTOMER RECORD”, 


BLT 


86222 


01 02-05-70 14.799 GE600 INTEGRATED STORE TRANSLATOR 


IDS ALTER NOS, 


00338 
00339 
00340 
00344 
00342 
00343 
00344 
00345 
00346 
00347 
00348 
00349 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
003538 
00359 


044990 GO TO 201°GET-CUST-CHN, 
045100 211-RET-CK-ERR, 

045110 DISPLAY "RETRIEVE ERROR". 
045120 DISPLAY "CHECK RECORD", 
045130 GO TO 203*GET<CHECK=RECY 
045140 212-RET-SA-ERR, 

045150 DISPLAY “RETRIEVE ERROR". 
045160 DISPLAY "SAVING RECORD", 
045170 ag TQ 204°GET-SAVE-REC, 
045180 2135RET-LO-ERRA, 

045190 DISPLAY "RETRIEVE ERROR", 
045200 DISPLAY "LOAN RECORD", 
045210 GO TO 205-GET-LOAN-REC, 
045220 JO0sWRAR-UP. 

045240 CLOSE CARD-READER, PRINT-UNIT, 
045245@ CLOSE IDS DATA BASE 
045250 ENTER IDS, 

045260 CLOSE. 

045261 309-PROGRAM@EXIT, 

045262 EX]T ENTASC, 

045270 S10-SNOOPY-EXIT. 

045280 EXIT PROGRAM, 


IDS-STRUCTURE SECTION, 
ENTER GMAP , 
PMC ON 
BLOCK +1DS., 
RD0641 .QRD 023,000033,0.0,0.000000, 


ETC RD0641,RD0645_,R00643,0000,RD6272, 
ETC 000000,000000¢L0AN-REC 

RD0645 ,QDD Q23,10,0+0+101> : 
ETC 4,.RD0641,RD0641,RD4609,R04609,RN0645, 
ETC 0029,0000,0000, 
ETC LOAN@CHN 

RDo0643 .@FD 0+0°000011,0006,FC4610,RD0644, 
ETC RDO643,RD46104 
ETc ACCT-NO#LO 

RD0644 ,@FD 3,0,000017,0012,FC6209,RD0642, 
ETC RD0644,RD6209, 
ETC AMOUNT-LO 

RDO642 ,OFD 0,0-000005,9006,FC1153,R00641, 
ETC RD0642,RD01153, 
ETC CUST=NO-LO 

RD6273 .QRD 022,000033,0,0+0+000000, 
ETC RD6273,RD6277,R06275,0000,R01668, 
ETC 000000,000000,SAVE-REC 

RN6277 ,@DD 022°10,0,0.s101- 
ETC 4.RD6273,RD6273,RD5889,RD5889,RN6277, 
Erc 0029-0000,0000. 
ETC SAVE-CHN 


RD6275 .arD 0,0,000011,0006,FC7745,RD6276, 


{SDL<2 CHGO00 


6L7 


86226 01 02-05-70 14,791 GE600 INTEGRATED STORE TRANSLATOR ISDL=2 CHGO0 
IDS ALTER NOS, 


00001 010010 [DENTIFICATION DIVISION, 

00002 010020 PROGRAM-ID. CHKSEG, 

00003 010030 AUTHOR, GEORGE A RUDOLPH. 

00004 010040 DATE-WRITTEN, MAY 1969. 

00005 010050 JNSTALLATION, G-E = PHOENIX; 

00006 010051 REMARKS. THIS IS THE CHECKING SEGMENT WHICH Ie@ CALLED BY 
00007 010052 THE MAIN PROGRAM SNOOPY TO CREATE AND STORE 
00008 010053 CHECK=REC RECORDS, 

00009 010060 ENVIRONMENT DIVISION. 

00010 010070 CONFIGURATION SECTION, 

00011 010080 SOURCE-COMPUTER. GE-635, 

00012 010090 Q8JECT-COMPUTER. GE-635, 

00013 010091 SPECIAL-NAMES, 


00014 010092 GETIME IS TODAYS-DATE, 
00015 010095 BLOCK 10 Is CCBLOXK, 
00016 010096 BLOCK 20 IS ENTRY-REC THRU LOAN-~REC. 


00017 010200 JNPUT-OUTPUT SECTION. 
00018 010210 FILE-CONTROL. 


00019 o10220 SELECT CARD-READER ASSIGN TO CR FOR CARDS. 
00020 010230 SELECT IDS TEST-FILE ASSIGN TO TF, 

00021 010240 J-0-CONTROL, 

00022 010250 APPLY SYSTEM STANDARD FORMAT ON CARD-READER, 


00023 020010 DATA DIVISION. 
00024 020020 FILE SECTION, 
0 


00025 020030 Fp CARD-READER 

00026 020040 LABEL RECORDS ARE STANDARD 

00027 020050 DATA RECORD IS CARD@IN, 

00028 020060 01 CARD-IN. 

00029 020070 02 ACCT~TYPE PICTURE XX, 
00030 020080 88 LOAN-ACCT VALUE "LO". 

00031 020090 88 SAVE-ACCT VALUE "SAN. 

00032 020200 88 CHECK-ACCT VALUE CK", 

00033 020210 02 CUST-NO-IN PICTURE 9¢6). 
00034 020220 Q2 ACCT-NQ-IN PICTURE 9(6). 
00035 020230 02 CUST-NAME*IN PICTURE X(26). 
00036 020249 02 AMOUNT=IN PICTURE 9(10)v99. 
00037 020250 02 FILLER PICTURE X(34), 


00038 020300 WORKING«STORAGE SECTION, 

00039 030010 }DS SECTION. 
02 CCBLOXK , 
02 DIRECT-REFERENCE SIZE IS 8 USAGE IS COMPUTATIONAL 4 
SYNCHRONIZED RIGHT. . 
02 FIRST-REFERENCE SIZE IS 8 USAGE IS COMAUTATIONAL-1 
SYNCHRONIZED RIGHT. 
02 LAST*REFERENCE SIZE 1S 8 USAGE IS COMPIITATIONAL-1 
SYNCHRONIZED RIGHT. t 
Q2 RECORD-TYPE SIZE 18 4 USAGE IS COMPUTATIONAL ©1 
SYNCHRONIZED RIGHT. : 
02 REC-FILE SIZE IS 6 CLASS !S ALPHANUMERIC 
VALUE IS wOOOOTFS, 


08d 


86226 


01 02-05-70 14,791 GE600 INTEGRATED STORE 


IDS ALTER NOS, 


00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 


- 00064 


00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 


030020 MD 


030030 
030040 
030050 
030060 
030070 
030080 
030090 
030200 
030210 
030230 
030240 
030250 
030260 
030270 
030290 
050300 
031010 
031020 
031030 
031040 
031050 
031060 
031070 
031080 
031090 
031200 
031210 
031220 
031230 
031250 
034260 
031270 
031280 
031290 
032010 
032020 
032030 
032050 
032060 
032070 
032080 
032210 
032220 
032230 
032240 
032260 
032279 


01 


01 


Q4 


01 


01 


TRANSLATOR tSDL<2 


02 ERROR-REFERENCE SIZE IS 3 CLASS IS ALPWANUMERIC 


SYNCHRONIZED RIGHT, 

TEST=FILE 

PAGE CONTAINS 1920 CHARACTERS 

FIL& CONTAINS 100 PAGES, 

ENTRY REC 

TYPE 1S 040 

RETRIEVAL VIA CALC CHAIN 

PAGE*RANGE I1§ 4 TO 1, 

02 ENTRY-FIELD PICTURE 

98 CAKC CHAIN DETAIL 
RANDOMIZE ON ENTRY@FIELD, 

98 CUST-NO=CHN CHAIN MASTER 
CHAIN“QRDER IS SORTED, 


CUST*NOSREC 

TYPE IS 020 

RETRIEVAL VIA CUST-NO®CHN CHAIN. 

02 CUST-NO-DSU PICTURE 
02 CUST-NAME~DSU PICTURE 


98 CUST-NO-CHN CHAIN DETAIL 
DUPLICATES NOT ALLOWED 
ASCENDING KEY IS CUST-NO~-DSU 
SELECT CURRENT MASTER, 

98 CHECK=CHN CHAIN MASTER 
CHAIN-ORDER IS FIRST. 

98 SAVE-CHN CHAIN MASTER 
CHAIN“ORDER IS FIRST. 

98 LOAN-CuN CHAIN MASTER 
CHAIN“ORDER IS FIRST. 


CHECK-REC 

TYPE IS 021 

RETRIEVAL VIA CHECK=CHN CHAIN, 

02 CUST-NO-CK PICTURE 
02 ACCT-NO=CK PICTURE 
02 AMOUNT-CK PICTURE 


98 CHECK=CHN CHAIN DETAIL 
SELECT CURRENT MASTER, 


SAVE-REC 

TYPE 1S 022 

RETRIEVAL VIA SAVE-CHN CHAIN, 

02 CUST-NO-SA PICTURE 
02 ACCT-NO~SA PICTURE 
02 AMOUNT=SA PICTURE 


98 SAVE-CHN CHAIN DETAIL 
SELECT CURRENT MASTER. 


LOAN-REC 

TYPE IS 023 

RETRIEVAL VIA LOAN~CHN CHAIN. 

02 CUST-NO-L0 PICTURE 


02 ACCT-NO-LO PICTURE 


9(6), 


916), 
X(26). 


96). 
9(6), 
S9(400V99, 


9(6), 
9.6), 
S9(L01V99. 


9(6), 
9¢6y, 


CHGOO0 


T8¢ 


86224 01 02-05-70 14,836 GE600 INTEGRATED STORE TRANSLATOR 'SDL=2 CHGO0 
IDS ALTER NOS, 


00088 032280 02 AMOUNT*LO PICTURE S9(L0\V99, 
00089 032299 98 LOAN-CHN CHAIN DETAIL 
00090 032320 SELECT CURRENT MASTER, 


00091 040010 PROCEDURE DIVISION. 
00092 042000 {O00-SAVE-PARA, 


00093 042020 MOVE CUST#=NO-IN TO CUST=NO-SA, 

00094 042030 MOVE ACCT<NO-IN TO ACECT=NO-SA, 

00095 042040 MOVE AMOUNT#IN YO AMOUNT@=SA. 

00096 042050 ENTER IDS. 

00097 042060 STORE SAVBeREC RECORD 

00098 042070 IF ERROR GO TO 140"STORE“SA-ERR, 
00099 042080 GO TO 200"CALL@SA@END, 

00100 043170 140-STORE-SA-ERR, 

00101 043180 DISPLAY "STORE ERROR", 

00102 043190 DISPLAY "SAVE RECORDS", 


00103 043200 200-CALL~SA~END,. 


00104 043230 XdT, 
[DS*STRUCTURE SECTION, 
ENTER GMAP . 


PMC ON 
BLOCK o1DSee 

RD0641 ,ORD 023,000033,0,0,0-000000, 
ETC RDQ0644,RD0645,RD0643,0000,RD6Q7%, 
ETC 000000,000000,LOAN-REC 

RD0645 ,@DD 023,10,0,0c401> 
ETC 4,RD0641,RD0641,RD4609,RD4609,RnN0645, 
ETC 0029,0000,0000, 
ETC LOAN®@CHN 

RDO643 ,QFD 0-0000011,0006,FC4610,RD0644, 
ETC RD0643,RD4610, 
ETC ACCTNO-LO 

RD0644 .aFD 3,02000017,0012,FC6209,RD0642, 
ETC RDQ644,RD6209, 
ETC AMOUNT=LO 

RD0642 ,QFD 0-02000005,0006,FC1153,RD0641, 
ETC RD0642,R01133, 
ETC CUSTeNO"LO 

RD6273 ,QRD 022,000033,020,0,000000, 
ETC RD6273,RD6277,RD6273,0000, RD1465, 
ETC 000000,000000,SAVE-REC 

RN6277 ,QDD 022.10-0,0,451, 
ETC 4+RD6273,RD6273,RD5889,RD5889,RN6277, 
ETC 0029,0000,0000, 
ETC SAVE*CHN 

RD6275 .QFD 0,0,000011,0006,FC7745 RD6276, 
ETC RD6275,RD7745, 
ETC ACCTeNO@SA 

RD6276 ,OFD 3.40,000017,0012,FC3137,R06274, 
ETc RD6276.RD31S7¢ 
ETC AMOUNT<SA 


C8C 


86224 


01 02- 


05-70 14.836 GE600 | 


IDS ALTER NOS, 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00041 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00056 
00037 
00038 
00039 


010010 
010020 
010030 
010040 
010050 
019081 
010052 
010053 
010060 
010070 
010080 
010090 
010091 
010092 
010095 
010096 
010200 
010210 
010220 
010230 
010240 
010250 
020010 
020020 
020030 
020040 
020050 
020060 
020070 
020080 
020090 
020200 
020210 
020220 
020230 
020240 
020250 
020300 
030010 


IDENTIFICATION DIVISION, 
PROGRAM=]D. SAVSEG, 


NTEGRATED STORE TRANSLATOR tSDL=2 CHGOO 


AUTHOR, GEORGE A RUDOLPH, 


DATE“WRITTEN, MAY 1969. 


INSTALLATION. G E © PHOENIX, 
REMARKS. THIS IS THE SAVING SEGMENT WHICH 1S CALLED BY 
THE MAIN PROGRAM SNOOPY TO CREATE AND STORE 


SAVE*REC RECORDS, 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE*COMPUTER. GE=635, 
OBJECT=COMPUTER, GE-635, 
SPECIAL=NAMES. 


GETIME IS TODAYS-DATE, 


BLOCK 10 !§ CCBLOXK, 


BLOCK 20 IS ENTRY*REC THRU LOAN-REC. 


INPUT“QUTPUT SECTION. 
FILE=CONTROL, 


SELECT CARD-READER ASSIGN TO CR FOR CARDS. 
SELGCT IDS TESTeFILE ASSIGN TO TF, 


J-O0-CONTROL, 


APPLY SYSTEM STANDARD FORMAT ON CARD-REaDGR, 


DATA DIVISION. 
FILE SECTION, 
FD CARBeREADER 


LABEL RECORDS ARE STANDARD 
DATA RECORD IS CARDeIN, 
01 CARD-IN, 

02 ACCTefyPE PICTURE XX. 

88 LOAN~ACCT VALUE "LO", 

88 SAVE~ACOT VALUE "SA", 

88 CHECK=ACCT VALUE "CK", 
02 CUST-NOWIN PICTURE 9(6), 
Q2  ACCT-NQ~IN PICTURE 9(6), 
02 CUST-NAME~IN PICTURE X(29). 
02 AMOUNT<IN PICTURE 9(19)v99, 
02 PICTURE X(34). 


FILLER 
WORKING=STORAGE SECTION, 
1DS SECTION, 

02% CCBLOXK , 
02 DIRECT»=REFERENCE 
SYNCHRONIZED RIGHT. 


SIZE 1S 8 USAGE IS COMPUTATIONAL ~¢% 


FIRST*REFERENCE SIZE 1S 8 USAGE IS COMAUTATIONAL@1 


SYNCHRONIZED RIGHT, 
O02 LASTeREFERENCE SI 
SYNCHRONIZED RIGHT, 
02 RECORD«TYPE SIZE 
SYNCHRONIZED RIGHT, 
02 REC*FILE SIZE IS 
VALUE IS "Q000TF#, 


ZB IS 8 USAGE IS COMPITATIONAL 4 
18 4 USAGE IS COMPUTATIONAL eA 
6 CLASS IS ALPHANUMBRIC 


C872 


86225 


01 02-05-70 14.809 GE600 INTEGRATED STORE 


IDS ALTER NOS, 


00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00074 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 


030020 
030030 
030040 
030050 
030060 
030070 
030080 
030090 
030200 
030210 
030230 
030240 
030250 
030260 
030270 
030290 
030300 
031010 
031020 
031030 
031040 
031050 
031060 
031070 
031080 
031090 
031200 
031210 
031220 
031230 
031250 
051260 
031270 
051280 
031290 
032010 
032020 
032030 
032050 
052060 
052070 
052980 
032210 
032220 
032230 
032240 
032260 
032279 


MD 


Ot 


01 


01 


O41 


01 


TRANSLATOR 'SDLe2 CHG00 


02 ERROR-REFERENCE SIZE IS 3 CLASS IS ALPWANUMERIC 


SYNCHRONIZED RIGHT. 

TEST*FILE 

PAGE CONTAINS 1920 CHARACTERS 

FILE CONTAINS 100 PAGBS, 

ENTRY=REC 

TYPE IS 010 

RETRIEVAL VIA CALC CHAIN 

PAGH*RANGE I§ 1 TO 1, 

02 ENTRY-FIELD PICTURE 

98 CALC CHAIN DETAIL 
RANDOMJTE ON ENTRY*FIELD, 

98 CUST-NO=CHN CHAIN MASTER 
CHAIN“ORDER IS SORTED, 


CUST-NO*REC 

TYPE 1S 020 

RETRIEVAL VIA CUST-NO@CHN CHAIN, 

02 CUST-NQ-DSU PICTURE 
02 CUST-NAME=DSU PICTURE 


98 CUST-NO“CHN CHAIN DETAIL 
DUPLICATES NOT ALLOWED 
ASCENDING KEY IS CUST-NO-DSU 
SELECT CURRENT MASTER. 

98 CHECK=CHN CHAIN MASTER 
CHAIN@ORDER IS FIRST. 

98 SAVE-CHN CHAIN MASTER 
CHAIN“ORDER IS FIRST. 

98 LOAN-CHN CHAIN MASTER 
CHAIN“ORDER IS FIRST. 


CHECK-REC 

TYPB IS O24 

RETRIEVAL VIA CHECK@CHN CHAIN, 

02 CUST-NO-CK PICTYRE 
02 ACCT-NO-CK PICTURE 
02 AMOUNT~CK PICTURE 


98 CHECK=CHN CHAIN D&TAIL 
SELECT CURRENT MASTER, 


SAVHRREC 

TYPE IS 022 

RETRIEVAL VIA SAVE-CHN CHAIN. 

Q2 CUST-NOQ«SA PICTURE 
02 ACCT-NO-SA PICTURE 
02 AMOUNT=SA PICTURE 


98 SAVE-CHN CHAIN DETAIL 
SELECT CURRENT MASTER. 


LOAN@REC 

TYPE IS 023 

RETRIEVAL VIA LOAN-CHN CHAIN, 

02 CUST-NO-LO PICTURE 
02 ACCT-NO#L0 PICTURE 


9(6), 


9(6y. 
x(26), 


96), 
9(6), 
$9(401V99, 


916), 
96), 
S9(LOVV99, 


96), 
9(6), 


V8c 


86226 01 02-05-70 
IDS ALTER NOS, 
00088 032280 02 


00089 932299 98 
00090 032320 


14.791 GE600 INTEGRATED STORE TRANSLATOR 


AMOUNT=LO PICTURE S9(401V99, 
LOAN-CHN CHAIN DETAIL 
SELECT CURRENT MASTER, 


tSDL¥2 CHGOO 


G8C 


86226 01 02-05-70 14,794 GE600 INTEGRATED STORE TRANSLATOR tSDL*2 CHGO0 
IDS ALTER NOS, 
00091 Os0000eEYECT 


00092 080010 PROCEDURE DIVISION, 
00093 061050 LO0+CHECK-PARA, 


00094 081070 MOVE CUST-NO-IN TO CUST=NO-CK, 
00095 081080 MOVE ACCT-NO-IN TO ACCT=NO-CK, 
00096 081090 MOVE AMOUNT~IN TO AMOUNT~CK. 
00097 081100 ENTER IDS. 

00098 081110 STORE CHECK*REC RECORD 
00099 061120 IF ERROR GO TO 120-STORE-CK-ERR. 
00100 081130 GO TO 200-CALL©CK<-END, 

00101 083090 120-STORE-CK-ERR, 

00102 083100 DISPLAY "STORE ERROR", 

00103 063110 DISPLAY "CHECK RECORD", 

00104 083120 200-CALL~CKEND. 

06105 083150 ExItT, 


IDS=-STRUCTURE SECTION, 
ENTER GMAP , 
PMC ON 
BLOCK eIDSee 
RDO641 .QRD 023.000033,0.020-000000- 


ETC RDG641,RD0645.,RD0643,0000,RD627x, 
ETC 000000,0000002eLGAN-REC 

RD0645 ,apD 0235210,0,0ete1> 
ETC 4,RD0641,RD0641,R2D4609,RD04609,RN0645, 
ET¢e 0029,0000,0000, 
ETC LOAN-CHN 

RDO643 .@FD 0,0+000011,0006.FC4610,RD0644, 
ETC RD0643,RD4610, 
ETc ACCT©NO"LO 

RDO644 ,aFD 3,0+000017,0012,FC6209,RD0642, 
ETC RD0644,RD6209, 
ETC AMOUNT-LO 

RD0642 .QFD 0,0-000005,0006,FC1153,R00641, 
ETC RD0642,R011536 
ETC CUST*NO"LO 

RD6273 .QRD 022,000033,020:0+000000- 
ETC RD6273,RD6277.RD6275,0000,RD1668, 
ETC 000000,000000«eSAVE-REC 

RD6277 ,ODD 022,10,0,0,401, 7 
ETC 1,RD6273,RD6273,RD5889,805889,RN6277, 
ETC 0029,0000,0000, 
ETC SAVE*CHN 

RD6275 .OFD 020-000011,0006,FC7745,RD6276, 
ETC RD6275,R07745, 
ETC ACCT#NO“SA 

RD6276 .QrD 3,0,000017,0012,FC3137,RD6274, 
ETC RD6276,RD3137, 
ETC AMOUNT<SA 

RD6274 ,@FD 0,0,000005,0006,FC1025,RD6275, 
ETC RD6274,RD1025¢ 


98Z 


86225 oO1 


02- 


05-70 


IDs aLTER NOS, 


00001 
o0002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00056 
00037 
00038 
00039 


010010 
010020 
010030 
040040 
010050 
010051 
010052 
010053 
010060 
010070 
010080 
010090 
010091 
010092 
010095 
010096 
010200 
010210 
010220 
010230 
010240 
010250 
020010 
020020 


020030 FD 


020040 
020050 
020060 
020070 
020080 
020090 
020200 
020210 
020220 
020230 
020240 
020250 
020300 
030010 


LOENTIF I 


PROGRAM= 


AUTHOR, 


14,8099 GE600 INTEGRATED STORE TRANSLATOR 1SDL-2 CHGOO 


CATION DIVISION, 
1D. LOASEG, 
GEORGE A RUDOLPH. 


DATE*WRITTEN, MAY 1969, 
INSTALLATION. G E = PHOENIX, 


REMARKS. 
THE 


THIS IS THE LOAN SEGMENT WHICH IS CaLLED By 
MAIN PROGRAM SNOOPY TO CREATE AND STORE 


LOAN-REC RECORDS. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION, 
SOURCE-COMPUTER, GE~635, 
OBJECT-COMPUTER, GE-635, 


SPECIAL= 


NAMES. 


GETIME IS TODAYS-DATE, 
BLOEK 19 I§ CCBLOXKe 
BLOGK 20 1§ ENTRY*REC THRU LOAN-REC. 

INPUT-OUTPUT SECTION. 

FILE*CONTROL. 
SELGCT CARD-READER ASSIGN TO CR FOR CARDS: 
SELECT IDS TEST-FILE ASSIGN TO TF. 

}+O-CONTROL. 

APPLY SYSTEM STANDARD FORMAT ON CARD-READBR, 

DATA DIVISION. 

FILE SECTION, 


CARD-READER 


LABEL RECORDS ARE STANDARD 
DATA RECORD IS CARDOIN, 
01 CARBwINe 


02 


WORKING 


ACCT-TYPE PICTURE Xx. 

88 LOAN-ACCT VALUE PLO", 

88 SAVE=ACCT VALUE "SA". 

88 CHECK-ACCT VALUE "CK", 
CUST-No~IN PICTURE 9¢(6), 
ACCT*NOWIN PICTURE 9:6), 
CUST*NAME=IN PICTURE X(25). 
AMOUNT@IN PICTURE 9¢19)V99. 
FILLER PICTURE X(S4). 
STORAGE SECTION, 


JOS SECTION, 


Q4 


CCBLOXK 


02 DIRECT-REFERENCE SIZE 1S 8 USAGE IS ComPUTATIONAL~-4 


SYNCHRONIZED RIGHT. 
02 FIRST-REFERENCE SIZE IS 8 USAGE 1S COMBUTATIONAL~1 
SYNCHRONIZED RIGHT. 

02 LAST*REFERENCE SIZE IS 8 USAGE IS COMPUTATJONAL~1 
SYNCHRONIZED RIGHT. ; 

02 RECORD-TYPE SIZE 18 4 USAGE IS COMPUTAFIONAL=1 
SYNCHRONIZED RIGHT, . 

02 REC-FILE SIZE IS 6 CLASS IS ALPHANUMERIC 

VALUE IS = "0000TFR, 


EGG 


86224 


01 02-05-70 14,836 GE600 INTEGRATED STORE TRANSLATOR tSDL*2 CHG00 


10S ALTER NOS, 


00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
0008) 
00081 
00082 
00083 
00084 
00085 
00086 
00087 


030020 mpd 


030030 
030040 
030050 
030060 
030070 
030080 
030090 
050200 
030210 
030230 
030240 
030250 
030260 
030270 
030290 
030300 
031010 
031020 
031030 
031040 
031050 
031060 
031070 
031080 
031090 
031200 
031210 
031220 
031230 
031250 
031260 
031270 
031280 
031290 
032010 
032020 
032030 
032050 
082060 
032970 
032080 
032210 
032220 
032230 
032240 
032260 
0322709 


01 


02 


Q1 


01 


01 


O02 ERROReREFERENCE SIZE IS F CLASS JS ALPWANUMERIC 
SYNCHRONIZED RIGHT. 
TEST-FILE 
PAGE CONTAINS 1920 CHARACTERS 
FILE CONTAINS 100 PAGES, 
ENTRY=REC 
TYPE 1S 020 
RETRIEVAL VIA CALC CHAIN 
PAGE*RANGE [§ 1 TO 1. 
02 ENTRY=FIELD PICTURE 9(6). 
98 CALC CHAIN DETAIL 
RANDOMIZE ON ENTRY@FIELD, 
98 CUST-NO-CHN CHAIN MASTER 
CHAIN@ORDGR IS SORTED. 


CUS T=NO=REC 

TYPE IS 020 

RETRIEVAL VIA CUST~NO=CHN CHAIN. 

02 CUST-NO=DSU PICTURE 9¢6), 


02 CUSTNAME=«DSU PICTURE X(26), 

98 CUST-NO@CHN CHAIN DETAIL 
DUPLICATES NOT ALLOWED 
ASCENDING KEY IS CUST-NO-DSU 
SELECT CURRENT MASTER. 

98 CHECK=CHN CHAIN MASTER 
CHAIN-ORDER IS FIRST. 

98 SAVE-CHN CHAIN MASTER 
CHAIN-ORDER 18 FIRET, 

98 LOAN~CHN CHAIN MASTER 
CHAIN-ORDER I$ FIRST. 


CHECK REC 

TYPE IS 024 

RETRIEVAL VIA CHECKeCHN CHAIN, 

G2 CUST=NO"CK PICTURE 9(6), 

02 ACCT-NO*CK PICTURE 9(6). 

02 AMOUNT~CK PICTURE $9(401V99. 


98 CHECK=CHN CHAIN D@TAIL 
SELECT CURRENT MASTER, 


SAVE*REC 

TYPE IS 022 

RETRIEVAL VIA SAVE-CHN CHAIN, 

02 CUST-NO<-SA PICTURE 916), 

02 ACCT-NO-SA PICTURE 9(6)., 

02 AMOUNT#8A PICTURE S9(10.v99, 


98 SAVE~CHN CHAIN DETAIL 
SELECT CURRENT MASTER, 


LOAN~REC 

TYPE IS 023 

RETRIEVAL VIA LOAN@CHN CHAIN, 

02 CUST-NO-LO PICTURE 9(6), 
02 ACCT-NO“LO PICTURE 9(6), 


88 


86225 


01 02 


~05-70 


IDS ALTER NOS, 


00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 


032280 
052299 
032320 
040010 
041130 
041450 
041160 
041170 
041180 
041190 
041200 
041210 
043130 
043140 
043150 
043160 
043190 


02 
98 


100-LOAN-PARA,. 


14,809 


GE600 INTEGRATED STORE TRANSLATOR 


AMOUNT=LO PICTURE S9(L0sV99, 
LOAN-CHN CHAIN DETAIL 

SELECT CURRENT MASTER, 

PROCEDURE DIVISION, 


MOVG CUST-NO-IN TO CUST-NO-LO, 
MOVE ACCT-NO-IN TO ACOT=NO-LO- 
MOVE AMOUNT=JN TO AMOUNT-LO.- 


ENTER IDS. 


STORE LOAN*REC RECORD 
IF ERROR GO TO 130“STORE=LO-ERR. 
GO TO 200-CALL~LO-END, 
L30-STORE-LO-ERR, 
DISPLAY "STORE ERROR", 
DISPLAY "LOAN RECORD", 
200-CALL=LOWEND- 


xIT, 
IDS-STRUCTURE SECTION, 


ENTGR GMAP , 


8 
RD0641 


RD0645 


RD0643 


aDdo644 


RD0642 


aD62735 


R06277 


RD6275 


RD6276 


QN 


»1DS., 

023.000033,9:0-0,000000, 
RD0641,+RD06454R00643,0000,RD6274, 
000000,000000eLQAN-REC 
023210,0,0e4e1% 
4°RD0644,R2D0641,RD4609,R204609,RN0645, 
0029,0000,0000, 

LOAN@CHN 
0+02000011,0006,FC4610,RD0644, 
RD0643,RD04610, 

ACCT-NO*LO 
3,0°000017,0012-F C6209, RD0642, 
RD0644,RD6209« 

AMOUNT-LO 
0,0+000005,0006,FC1153,R00641, 
RD0642,RD1153¢ 

CUST*NO-LO 
022,000033,0,0,0+000000, 
RD6273,RD6277,RD6275,0000,RD1668, 
000000,000000,SAVE-REC 
022,10,0,0,401,5 
4,RD6273,RD62737RD5889,RD5889,RN6277, 
0029,0000,0000, 

SAVE*CHN 
0+0-000011,0006,.FC7745,RD6276, 
RD6275.-RD77456 

ACCT©NOWSA 
3,0+000017,0012,FC3137,RD56274, 
RD6276,RD3137, 

AMOUNT@=SA 


1SDL-2 CHGOO 


682 


86226 02 02-06-70 00.02/ PAGE 1 
ORIGIN 053069 ENTRY LOCATION ENTRY LOCATION ENTRY LOGATION ENTRY LOCATION ENTRY LOCATION 


SUBPROGRAMS INCLUDED IN DECK, 


s OPTION FORTRAN 
$s USE +QMAX/24 5. QAREA/L577/2 .OMIN/LA 
056570 020570 ereeese 056570 
BL9cK COmmMON 20 056540 c24 056534 
054560 020570 C.LDIN 054572 SNOORY 054573 C,SNOO 9§6524 ENTABC 955292 
BLOCK COMMON ,IDS.. 084346 c2i 56534 cio $4336 c20 056540 PR 053060 
CR 051614 
SUBPROGRAMS OBTAINED FROM SYSTGM LIBRARY, 
051540 110268 SETU. 031545 
047322 102969 +FRDD. 051024 »FWRD, 050756 +FPRN+ 030756 «FPUN. 050752 sFCNVs 047647 
sFFIL. 051064 »FRTN. 054060 -FRCD, 091024 sDBCNy 091073 »+BDCNV 0531614 
047260 110268 FEOF, 047260 
047122 «= 973069 FSLEW 047122 
046526 110268 +FOPEN 046532 EXIT 046736 +FEX[T 046736 sFBAD, 0471405 FBFTB 047406 
iFXOP. 046721 wFGTFB 046526 »FJOV, 046530 
045244 102969 FXEM 046047 wFXEM, 045244 sFXMC, 046032 ANYERR 046155 FXOPT 046066 
FXDVCK 046127 FXALT 046143 FXDV 046440 FXFDV 046436 FXCODE 046046 
wFXSWL 046034 sFXSW2 046036 +FXSWS 066040 ERRLK 046463 «FLTPR 046365 
045006 110268 .FADO, 045122 
044670 110268 LINK 044700 LLINK 044676 IDLINK 044723 LENTRY 044672 
043440 073069 +QDBUG 043440 H5 1138 044655 
041412 082869 eQOPEN 041412 sQTABL 043344 +QTABZ 043378 HW5,122 043426 
BLOCK COMMON .QMAX 061776 ,QMIN 056722 
041322 073069 sQCHN 041322 5,196 044405 
041254 073069 *QGET 041254 W5.442 041315 
040614 073069 +QSTOR 040614 H5,127 041236 
040472 073069 +QMOVE 040472 H5,180 040607 
037436 073069 +QTLNK 037436 eQTALY 037704 H5,129 040463 
037420 110268 .Qucce 037420 H5,131 037433 
037364 110268 +QSDSW 037364 H5,126 037414 
036770 080769 +QMNO 036770 H5,119 037355 
036410 073069 +QASC 036410 H5.192 036763 
036234 073069 sQCALC 036234 sQCAL1 036372 H5.105 036404 
035772 09073069 sQGDET 035772 45.111 036227 
035734 110268 sQSYN 035734 H5.128 035766 
035654 110268 »QUPDC 035654 H3,134 0357354 
035630 110268 +QAUTH 035630 H5,193 935653 
035362 073069 ,QFWD 035362 H5,110 035623 
035160 073069 +QLNK1I 035344 +QLNK5S 035345 -OLSW 035353 sQDLNK 035160 W5,108 035354 
034776 073069 eQUDCH 034776 H5,433 039152 
034706 110268 +QRUND 034706 45.425 034770 
034614 110268 QiYPX 034614 H5.430 034702 
034500 073069 QADUU 034500 eQINSW 034607 H5.101 034614 


062 


86226 02 
ORIGIN 


034262 
034222 
034010 
033344 
032172 
031760 
031672 
031572 
031266 
034210 
031036 
030554 
030344 


027462 


026264 
024712 


024702 
024440 


024426 
024340 
023756 
023456 
023310 
023132 
023050 
022402 
022570 
022362 
022244 
022166 
022152 
022012 
021732 


02~06-70 
053069 


073069 
110268 
073069 
073069 
073069 
110268 
110268 
073069 
073069 
073069 
073069 
110268 
073069 


073069 


110268 
073069 


073069 
102969 


102969 
110268 
073069 
110268 
110268 
073069 
110268 
110268 
110268 
110268 
110268 
110268 
110268 
110268 
110268 


00.927 


ENTRY LOCATION 


eQMRAC 
OPACK 
+QUIT 

6OCLOS 
©QB1C 

+QINV2 
+QLAR 

+QINVI 
+QGINVS 
sQinv4 
+QMAPL 
+QRTAB 
»Q10S 

45,165 
+QWKA 

»QI1PQS 
QuUTCS 

+ 1DSF 

o INVOF 
»QEMTY 
+QCURT 
eQSTST 
+QCHST 
H5.166 
+Quif 

+QvVFY4 
+QBCD 

eQDIRF 
eQSFD 

+QSTA 

+CNTRY 
»CMPSH 
1 F 1CB 
»CDATE 
1CMSTK 
+CGOPN 
+ COSWR 
»COSYS 
+CIiCON 
» COBUF 
eCNFXA 
»CED07 
»CED05 
+CERPL 
»CESSN 
eCEITL 
+» CERSN 
+CETLS 
»CEDEC 
»CEgui 


034262 
034222 
034010 
033544 
032172 
031760 
031672 
031572 
031266 
031210 
031036 
030554 
030367 
030550 
027514 
027513 
027631 
027472 
027530 
027525 
027534 
027544 
027570 
930340 
026264 
027124 
0249712 
025116 
025672 
024702 
024530 
024456 
024675 
024434 
024344 
023760 
023457 
023312 
023135 
023076 
022414 
0223571 
0223563 
022245 
022167 
022134 
022013 
021734 
022005 
021736 


ENTRY LOCATION 


H5.424 
45.123 
QUI TX 
43,497 
«QFLSH 
45,160 
+QLOCK 
45,159 
H5,161 
HS ,162 
5,163 
»QTABS 
eQWRIT 


»QURBA 
,QFOP 
OUTFD 
eT JRNL 
,QQWA 
+QDBGS 
»QQDPSW 
»QGAST 
»QHDST 


sQUTF4 
+QVFY6 
+QCLR 
+ QMCH 
eQDIRI 
eQSTAL 
sCMXIT 
»CMPQP 


eCTALY 
»CMSTE 
+CTEOF 


»CITYeP 
sCLINE 
»CNFXB 


»CEGET 
»CETSS 
sCESTL 
eCBCMA 
eCNQUe 


0344738 
034257 
034203 
034004 
0331350 
032164 
031707 
031666 
Q31564 
031262 
031205 
030762 
030344 


027544 
027607 
027620 
027504 
027546 
027524 
027535 
027550 
027574 


g26264 
27442 
024745 
926047 
925130 
024702 
024543 
024467 


924427 
924424 
024247 


923153 
Q2307% 
0226614 


022140 
022127 
021754 
022006 
021737 


ENTRY LOGATION 


+QuITY 
»QSBEF 
rQRLS 


H5,.164 
+ QREAD 


eQAVAL 
+QPMLV 
+QIDCW 
*QSICT 
+ QLCCB 
+ QCDSW 
+ QNFN 

+QGCST 
eQMFST 


»QUTF2 
eQVFYI 
«QCSM 
+ QMEX 
45,154 
-QSTAZ 
+CMSER 
«CmMusT 


»CIOER 


»COCBF 
»CIBUF 
2 CNFXS 


»CEPVW 
+ CETSN 
»CERTL 
«CESSW 
»CEQuU@ 


034067 
033222 
034733 


027554 
037600 


6393 
8873s 
024765 
026103 
026256 
024704 
024456 
024505 


024430 
084314 


0235266 
023052 
922404 


022165 
092044 
0214735 
031776 
021737 


ENTRY LOCATION 


H5, 152 
,QSEMT 
H5 452 


»ORDS 


+QTREF 
»ORELV 
rF ENV 
,QACT 
,QVECT 
»QCREC 
sQBARG 
,QGDST 
<QDLST 


»QUTFS 
WO, 445 
sQDIR 
,QMWD 


45,137 
1CMENT 
+CMUET 
1CTMPS 


,CTOEI 


eCOSIZ 


+CEDLS 
sCNNUM 
»CEZST 


034246 
032676 
031755 


Q30362 


027544 
et 
027587 
027820 
027527 
027592 
027541 
027560 
027604 


26400 
ESPN fy 


025022 
026453 


024706 
024441 
024545 
024432 


024330 


923244 


022000 
021736 
021740 


ENTRY LOCATION 


H5.104 


-QWATT 


eQINIT 
»QERTB 
»EINV 
»QMBUF 
1 OCBYF 
-QCURD 
sQICTR 
.QGEST 
+QECAC 


eQVFY 
+ QDIRC 
+ OPBK 
«CMRET 
 CMUEX 
C1029 


oe CXXXK 


«CECHR 


-CNQYL 
»CENOP 


035436 


030365 


027512 
027613 
027540 
027323 
027324 
027833 
027542 
0275964 
027612 


026712 
0254652 
026477 
024475 
024522 


024434 


025636 


022004 


021736 
021744 


T6¢ 


86226 02 02-06-70 00,027 


ORIGIN 053069 ENTRY LOCATION ENTRY LOCATION ENTRY LOGATION ENTRY LOCATION ENTRY LOCATION 
+CESAV 021742 sCEOPS 9214777 
021726 110268 eCMEND 021726 
021676 102969 »CCCCC 021717 X496G 921720 X4092 091721 X1095 021722 eCTBEG 021712 
BEGIN 021712 iCTCOR 021713 CORECT 081713 sCTCMT 021794 XCMNT 021714 
«CTDMP 021715 xDyMP 924715 sCTIOM 021716 x4000 0921736 eCTEND 021677 
XXEND 021714 »CTFIN 021677 XTMIII 0241677 sCQUIT 021677 
021604 110268 eGWRIT 021604 »GAWRI 021604 WRITE 081604 
021510 110268 +GREAD 021519 »GAREA 021540 READ 081510 
021426 110268 +GWAIT 021426 +GAWAI 021426 WAIT 0414426 
021332 110268 »GSTOT 021332 SETOUT 021332 
021302 110268 +GSTIN 021302 SETIN 921302 
021026 072569 +GEPRN 021026 EPRINT 021026 
020540 110268 +GPRNT 020540 »GAPRN 020540 PRTOC4 020573 PRTQ24 020747 PRTO34 020736 
PRTOS2 020745 PRTOSS 020752 PRTQO51 020770 PRTOO2 020872 PRINT 020549 
020454 110268 +GIOPG 020454 10P024 920530 10P024 090533 
020404 073069 *GWHTRC 020404 eGAWTR 020404 WTREC 020404 
020270 110268 +GEDIT 020270 +GEN62 020363 +GE06S 080364 1GE064 920365 ~GE065 020367 
»GE066 920370 «GB067 020374 +GAED] 0960270 +GEQ68 920372 »GE0S69 020373 
2GE071 0203574 »GE072 020375 EDATE 080376 ETIME 020377 IQOEDIT 920270 
017562 073069 *GGTBK 017562 GETBK 017562 *GGET 097564 GET 017564 *GAGTB 0147862 
+GAGET 017564 
017554 073069 +GOPNR 017554 »GCLSR 017554 »GGETR 047554 »GPUTR 017554 
017040 073069 »GCoPy 047040 COPY 017040 +GPTBK 047043 PUTBK 017043 -GPUT 047046 
PUT 017046 »GaCop 017040 »GAPTB 047043 +GAPUT 017046 +GFR67 047534 
016742 110268 +GPISZ 046742 eGAPTS 016742 PUTSZ 046742 
016202 073069 +GOPEN 016202 ~GAOPE 016202 OPEN 046202 
015530 073069 *GCLSE 015539 «GACLS 015530 *GR185 945634 +GR186 915725 *GR1I78 045641 
CLOSE 015530 
015512 110268 +GBNRY 015512 
015412 073069 »GRLSE 015412 eGARLS 015442 RELSE 045412 
015220 110268 +GR200 0135220 
015172 110268 :GBCD 015172 
015114 110268 »GR225 015114 
015042 110268 +GR250 015042 
014550 073069 +GR275 014550 
14400 110268 +GR377 944434 +GR385 pee «GR375 g 4400 +GR37X 034483 ~GR39O0 044873 
14274 110268 +GR9B0 014274 »GRO79 014372 GROIX 044300 +GRI84 014336 +GRIBS Ot aa73 
»GRI9O 014304 
014214 110268 +GR960 014214 
013476 110268 *GINHD 013503 +GOUTH 913502 +GINTL 093501 +GOUTL 913590 eGUSWH 9435477 
eGOVRL 013504 sGLREA 013562 »GRCVY 043476 
013474 110268 eGINID 0143474 
613442 §=©110268 »GRI90 043442 +GR99Z 913463 L5AUGS 043470 
RANGE StZeé 
ALLOCATED CORE 000000 THRU 061777 068000 
OBJECT PROGRAM 
RELOCATABLE 0143440 THRU 061777 046340 
s LINK LINKAA 


C6C 


86226 02 02-06-70 


ORIGIN 053069 


@ee NON FATAL ERROR 
013320 020570 
BLOCK COMMON 


#ee NON FATAL ERROR 
##e NON FATAL ERROR 
#@% NON FATAL ERROR 


eae N FATAL ERROR 
0135930 026590 
BLOCK COMMON 


eee NON FATAL ERROR 
eee NON FATAL ERROR 


eee NON FATA 
013320 02 
CK 


00, 


027 


ENTRY LOCATION ENTRY LOCATION ENTRY LOGATION 


SUBPROGRAMS INCLUDED IN DECK. 
C,LDIN LOADED PREVIOUSLY 


CHKSEG 0135533 C,CHKS 013427 
»10S.. 054346 cio 054336 c20 0n6540 


SUBPROGKAMS OBTAINED FROM SYSTEM LIBRARY, 


RANGE SIZE 

ALLOCATED CORE 000000 THRU 061777 062000 
OBYECT FROGRA 

KELOCATABLE 043320 THRU 061777 049460 


MISSING ROUTINE ,CFICB 
MISSING ROUTINE LOASEG 
MISSING ROUTINE SAVSEG 


$ LINK LINKBB+LINKAA 


SUBPROGRAMS INcGLUDED IN DECK, 


C,UDIN AD PREVIOUSLY 
SAVSEG 93358 C,SAVS 913427 
11DS,. 094346 c10 054336 c20 056540 


SUBPROGRAMS OBTAINED FROM SYSTEM LIBRARY, 


RANGE SIZE 

ALLOCATED CORE 000000 THRU 061777 062000 
OBJECT PROGRAM 

RELOCATABLE 043320 THRU 061777 044460 


MISSING ROUTINE ,CFICB 
MISSING ROUTINE  LOASEG 


$ LINK LINKCC»LINKBB 


SUBPROGRAMS INCLUDED IN DECK, 


C,LDIN LOADED PREVIOUSLY 
LOASEG 045333 C.LOQAS 013426 
e10Se. 0543546 C40 054336 C20 086540 


SUBPROGKAMS OBTAINED FROM SYSTEM LIBRARY, 


RANGE 
ALLOCATED CORE 000000 THRy 061777 Ls] 


ENTRY LOCATION 


CR 


GR 


CR 


051614 


051644 


051644 


ENTRY LOCATION 


C62 


86226 02 02-06-79 OU. 


ORIGIN 053069 


ee NON FATAL ERROR @ 


02/7 
ENTRY LOCATION ENTRY LOCATION ENTRY LOGATION ENTRY LOCATION 
OBYECT PROGRAM 


RELOCATABLE 023320 THRU 061777 044460 
MISSING ROUTINE -CFICB 


$ Disc He,X2S,8R 

$ Disc TF,X43S,9R TEMPORARY MASS STORAGE FILE 

$ DATA +Q TEMPORARY [I-DeS DATA FILE FOR DIRECTIVES 
§ SYSOUT PR ASSIGN PRINTER 70 OUTPUT MEDIA CONVERSION 
$ DATA CR TEMPORARY FILE FOR CARD INPUT 


FCB AND BUFFER SPace 


AVAILABLE 000104 THRU 013315 013215 
FILE CTRL BLKS 013166 THRU 013316 000134 
MAXIMUM BUFFER SPACE REQUIRED 004200 


ENTRY LOCATION 


21K, IS THE MINIMUM MEMORY NEEDED TO LOAD THIS ACTIVITY WITH ALL FILES OPEN 


EXECUTION PROGRAM ENTERED AT 056579 
THERE WERE 000009 WARNING FLAGS IN THE ABOV® LOAD 


Vv 62 


CUSTOMER NUMBERS AND ACCOUNTS STORED ON DATA FILE 


CUSTOMER NUMBER TY 


000123 


000235 


001100 


004444 
055555 
123456 


666111 


SNUMB = 86226, ACTIVITY 


NUMBER OF CHECKING ACCOUNT 

NUMBER OF LOAN RECORDS READ 
NUMBER OF SAVING ACCOUNT RE 
TOTAL NUMBER OF RECORDS REA 


2-6-70 
PE OF ACCOUNT ACCOUNT NO 
CHECKING 003302 
SAVINGS 000022 
LOAN 002301 
CHECKING 024501 
SAVINGS 000501 
SAVINGS 002403 
LOAN 000302 
CHECKING 000904 
LOAN 000703 
CHECKING 005503 


COBOL Program Output 


# = 02, REPORT CODE = 52, 


RECORDS READ = 4 
as S 

CORDS READ = 3 
D= 10 


FORTRAN Program Output 


RECORD COUNT 


1,9 


00004 


AMOUNT 


274 
00 
. 10 
145.71 


09 
-O1 


200 
87,654.32 
10.00 


a) 


Appendix D. Primary Subroutines 


Primary subroutines are those subroutines which are called directly as a 
result of an I-D-S verb. The primary subroutine then calls other 
subroutines to perform the function. The following is a list of the 
I-D-S verbs and the corresponding primary subroutine which is called as 
a result of the verb. 


I-D-S Verb Primary Subroutines 
CLOSE -9CLOS 
DELETE -QDLTE 
HEAD - QHEAD 
MODIFY - OMDFY 
MOVE -OMOVE 
OPEN -QOPEN 
RETRIEVE - QGET 
RETRIEVE CURRENT - OGETC 
RETRIEVE DIRECT -QGETD 
RETRIEVE EACH -QGETE 
RETRIEVE MASTER 
RETRIEVE NEXT | -QCHN 
RETRIEVE PRIOR 
STORE -QSTOR 
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Appendix E. Sample Deck Setups 


COMPILE AND EXECUTE PERMFILES 


The following Deck Setup will compile and execute an I-D-S 
using a permanent I-D-S data file. 


ae 8 16 

| 
s IIDENT IDSOO , PERMFILE 
Ss |USERID ;IDSFOURYQUAD$ DATABASE 

ji-D-S SOURCE DECK OR COMDK 
$ |EXECUTE | 
Ss |PRMFL |A1l,R/W,R,IDSFOURYQUADS DATABASE /QUADO1 
$ IPRMFL IA2,R/W,R, IDSFOURYQUAD $SDATABASE /QUAD02 
S$ ;PRMFL |A3,R/W,R,1 DSFOURYQUADS DATABASE /QUAD03 
S PRMFL |A4,R/W,R, IDSFOURYQUADSDATABASE/QUAD04 
$ ENDJOB | 
**X*KEOF | l 


program 
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EXECUTE USING TEMPORARY FILES 


The following Deck Setup will execute an 
temporary files. NOTE: 


I=D=5 


1 8 16 
et 
$ IDENT 'IDSOO, TEMPFILE 
$ \PROGRAM = |QUTU 
S ‘LIMITS 1,24k 
S |MASS |Al,X1S,11R 
iS jbISc 1A2,X2S,22R 
Ss DRUM lA3,X3S,11R 
$ lDATA l.Q 
IDS ICREATE 'IFC/A1/,BSSZ/480/,RNG/1,120/ 
IDS ICREATE |!FC/A2/,BSSZ/480/,RNG/121,240/,LPP/32/ 
IDS ;CREATE ‘'FC/A3/,BSS2/480/,RNG/241,360/ 
S {DATA IT* 
IDS )INIT IFC/AL/ 
IDS jINIT IPC/A2/ 
IDS ;INIT IFC/A3/ 
S OBJECT | 
1I-D-S (OBJECT DECK 
S IDKEND 
S JEXECUTE 
. MASS lrp1,X1S,11R 
S |DISC \T2,X2S,22R 
S {DRUM IT3,X3S,11R 
S iDATA ee 
IDS CREATE j\FC/T1/,BSSZ/480/,RNG/1,120/ 
IDS ICREATE jFC/T2/,BSS2/480/,RNG/121,240/,LPP/32/ 
IDS ICREATE |FC/T3/,BSSZ/480/,RNG/241,360/ 
S IENDJOB st 
KKKEOF | | 
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object program 
The QUTU activity will initialize the database. 


COMPILE AND EXECUTE USING PERMANENT AND TEMPORARY FILES 


The following Deck Setup will compile and execute an I-D-S program using 
permanent and temporary files. NOTE: The QUTU activity will reload the 
temporary file from tape. 


iL 8 16 


Lt DENT |IDS00 ,MIXEDFILES 
USERID | IDSFOURYQUAD$DATABASE 
PROGRAM IQUTU 

LIMITS 1,24k 

lbtsc ln1,X2S,22R 


ITAPE lpr, X6D 
IDATA 1.Q 

DS ICREATE IFC/A1/,BSSZ/480/,RNG/121,240/,LPP/32/ 
|DATA |r* 

DS (WRITE |FC/DT/,RNG/121,240/,ONFC/A1/ 
IDS , 
| -D-s SOURCE DECK OR COMDK 
JEXECUTE ! 
|PRMFL \T1,R/W,R, IDSFOURYQUAD $DATABASE /QUADO 1 
JDISC )22,X2S,22R 
|PRMFL T3,R/W,R, IDSFOURYQUADSDATABASE /QUAD 03 
|PRMFL T4,R/W,R, IDSFOURYQUADS DATABASE /QUADO 4 
|DATA : 

DS CREATE IFC/T2/,BSSZ/480/,RNG/121,240/,LPP/32/ 
JENDJOB_ | 


Se EOE l I 


PRINT A PERMANENT FILE 


The following Deck Setup is an example of a QUTU activity which prints a 
permanent file. 


1 8 16 
| 
S$ JIDENT 1IDS00,PRINT 
S JUSERID | IDSFOURYQUAD SDATABASE 
iS IPROGRAM |QUTU 
s ILIMITS !,24k 
$ IDRMFL Ine R/W,R,IDSFOURYQUADS DATABASE /QUADO1 
S ;PRMFL [267 B/W My POSE OURYOURD ED ATABESE/QUADOs 
S DATA I* 
IDS jPRINT |FC/TE/,RNG/1,10/, PAGES 
IDS |PRINT jFC/TG/, EMPTY 
$ JENDJOB 


xk *XEOF I ! 
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TRACE ENTRY 


The following Deck Setup will compile and execute an I-D-S program using 
an I-D-S Permanent File and will generate a trace entry for all calls to 
the I-D-S primary subroutines. 


! 
‘IDENT |'DS00, TRCEDATA 


$ 
$ lUSERID ,IDSFOURYQUADSDATABASE 
s IDS | 

IT-p-S SOURCE DECK OR COMDK 
$ lUSE 1.QSTC 
$ |EXECUTE | 
S DATA 1.Q 
IDS {OPTION !TRACE 
$ )PRMFL lA1l, R/W, R, LDSFOURYQUAD$DATABASE/QUADO1 
$ |PRMFL |A2,R/W,R, LDSFOURYQUADS DATABASE /QUAD0 2 
$ |PRMFL |A3,R/W,R, IDSFOURYQUAD $DATABASE/QUAD 03 
S |PRMFL |A4,R/W,R, LDSFOURYQUADS DATABASE /QUADO 4 
$ JENDJOB { 
**K*KPROP | | 


EXECUTE QUTJ 


Deck Setup to execute QUTJ from the Software Library. 


dk 8 16 
{ | 


lIIDENT jIDS00 , JOURNAL 

\PROGRAM lOUTI 

LIMITS loPTIONS 

\TAPE JIN, X1D, ,1234, ,JOURNAL-TAPE 
DATA I 

ISYS'TEM 

j|ENDJOB 


kKKKEOR { 
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EXECUTE QUTP 


Deck Setup to execute QUTP from the Software Library. 


16 


i 8 

S ITDENT 

S ID ROGRAM 
s LIMITS 
S ITAPE 

S TAPE 

g IDATA 
IDS ISELECT 
IDS ISELECT 
iS IENDJOB 


KKKEOF | 


EXECUTE QUTS 


IIDS00,PICKER 
louTP 
loPTIONS 


jIN,X1D,,1234, ,JOURNAL-TAPE 
jOT ,X2S 

jr* 

[1/53607,1/53607,B 
\12/88802, 13/88802,B 

| 


Deck Setup for executing QUTS from the Software Library. 


16 


IT DENT 
jPROGRAM 
LIMITS 
TAPE 
ITAPE 
TAPE 
INTAPE 
IENDJOB 
*kEOF | 


FOAM NNO MM 


ITDSO00,SORT 
QUTS 
{L0 , 17k 
\IN,X2D 
OT, X3S,,99999 
10U,X4S, ,99999 


IS1,X5R,3 
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EXECUTE QUTI AND QUTC 
Deck Setup for executing QUTI and QUTC from the Software Library. 


1 8 16 
1 


ITpS00, CALC 


1 
'TDENT 


IPROGRAM jQUTI 
IMass |Al,D1S,10R 
IDATA 1.Q 
DS |CREATE '!FC/Al/,BSSZ/100/,RNG/1,100/ 
|\DATA ITs 
DS jINITIAL ;1,100 
PROGRAM ,QUTC 
LIMITS ,10,26k 
|TAPE jAl,AlR,,,,WORK1 
ITAPE jB1,B1R,,,,WORK2 
ITAPE |T1,T1D,,1234,,USER-IN 
ITAPE Icl,C1D,,,,USER-SORTED 
INTAPE IS1,S1R, 3 
IMASS |D1,D1R,10R 
IsySOouT {Pl 
IDATA Pe) 
DS ICREATE IFC/D1/,BSSZ/100/,RNG/1,100/ 
IDATA ir* 
DS (OPTION IGENERATE/,RANDA/,RNG/1, 30000/ 
IENDJOB | 


*KEOF | | 


EXECUTE QUTD 


Deck Setup for executing QUTD from the Software Library. 


1 8 16 
'T DENT 1IDS00 , DUMP 


$ 

$ PROGRAM |QUTD 

S iLIMITS (OPTIONS 

S USERID 'IDSFOURYQUADSDBASE 

S (PRMFL TF ,R/W,R,IDSFOURYQUAD $DBASE /QUADO1 
S IPRMFL ITG, R/W,R, LDSFOURYQUADSDBASE /QUAD02 
S \TAPE lor ,x2S,,,,DUMP-FILE 

$ DATA = 

IDS \DUMP l 

S \ENDJOB_| 

kk * EOF | t 
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EXECUTE QUTL 


Deck Setup for executing QUTL from the Software Library. 


JIDENT 'IDS00 , LOAD 


PROGRAM QUTL 
jLIMITS OPTIONS 


;MASS 1Al,X1R,15R 
ITAPE (EN, X26, ,1234, ,DUMP-FILE 
ITAPE DE,X3S,,,,DELETE-FILE 
\DATA lla 

DS ; CREATE IFC/A1/,BSS2Z/480/,RNG/1,120/ 
|DATA i 

DS JOPTION (PLOAD/,RNG/1,120/,DELETE/ 


|ENDJOB ! 
KKEBOF | | 


COLLECTING TYPE B STATISTICS 


Deck Setup for collecting type B statistics on the journal file 
executing QUTR from the Software Library. 


| 
{IDENT 


IIDS00 , STATISTICS 
'USERID !IDSFOURYQUADSDATABASE 
'USE |-QSTB 
;OBJECT | 
IDKEND 
EXECUTE | 
;PRMFL Al ,R/W,R,IDSFOURYQUADS DATABASE /QUADO1 
ITAPE iJX,X1S,,,,1-D-S-JOURNAL 
'IPROGRAM IQUTR 
\SYSOUT 1 
| TAPE Al,X1R,,,,1-D-S-JOURNAL 
TAPE IB1,X2R, ,99999 
NTAPE IS1,T,2 
|ENDJOB | 


**EOF i | 


Activity 1 is the execution of an IDS program which provides 
collection of type B information on the user-created journal file 
tape). 


Activity 2 is the execution of QUTR. 


and 


for 
(JX 
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Appendix F. Reference Code Manipulation 


EXTRACT A PAGE NUMBER 


Procedure Division statements similar to the following may be used _ to 
extract a page number from a reference code. 
COMPUTE PAGE-NO = DIRECT-REFERENCE /64. 
EXTRACT A LINE NUMBER 
Procedure Division statements similar to the following may be used _ to 
extract a line number from a reference code. 
a. Assume PAGE-NO was previously extracted. 
COMPUTE LINE-NO = DIRECT-REFERENCE - (PAGE-NO * 64). 
b. Assume PAGE-NO was not previously extracted. 
COMPUTE LINE-NO = DIRECT-REFERENCE —- ((DIRECT-REFERENCE/64) *64) 
CREATE A REFERENCE CODE 
Procedure Division statements similar to the following may be used _ to 


create a reference code. 


a. Assume PAGE-NO has previously been initialized with the desired 


page number. 


b. Assume LINE-NO has previously been initialized with the desired 


line number. 
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COMPUTE DIRECT-REFERENCE = (PAGE-NO *64) + LINE-NO. 


~~ 
~I sd 


IDS SECTION 
Ol CCBLOXK. 
02 DIRECT-REFERENCE PIC 9(8) COMP-1. 


306 


Index 


01 


level 01 and 98 


02 


level 02 


03 


Slave Begin Sync Record Type 03 


Slave Begin Sync (SLVBGN) 
Slave End Sync (SLVEND) 


Before Page Image (BEFORE) 
Before Page Image (BEFORE) 


After Page Image (AFTER) 
After Page Image (AFTER) 


Statistics 


level O1 and 98 


concurrent access 
READ access mode 
WRITE access mode 
RECOVERY access mode 


3 

TYPE 
4 

TYPE 
5) 

TYPE 

Type 
6 

TYPE 

Type 
9 

TYPE 
98 
ACCESS 
ACCESSING 


ACCESSING AN I-D-S FILE 


31 


31 


138 


141 


141 


141 
165 


141 
165 


141 


ok 


125 
135 
135 
135 


132 
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TwyTms, 


File System Activity ($ FILSYS) 
Activity Number 

Page Buffer Activity Table 
Page Buffer Activity Table 
activity chain 


AFTER 
AFTER 
TYPE 6 After Page Image (AFTER) 
AFTER page images 
Type 6 After Page Image (AFTER) 


ALL 
ALL 


ALLOCATION 
Subfile Allocation 
subfile allocation criteria 
I-D-S Data File Allocation 


ALLOWED 
DUPLICATES NOT ALLOWED clause 


ALTER 
GMAP alter number 


ANALY ZER/CALC 


Randomizing Analyzer/CALC Pre-Load Sort Utility 


AREA 
ERROR-REFERENCE communication area 
labeled common area 
labeled common area (.IDS...) 


AREAS 
ASSIGNMENT OF I-D-S BUFFER AND WORK AREAS 


ASCENDING 
ASCENDING RANGE KEY 
ASCENDING 


ASCENDING/DESCENDING 
Ascending/Descending 


ASSIGNMENT 
ASSIGNMENT OF I-D-S BUFFER AND WORK AREAS 


ATTRIBUTES 
attributes of an I-D-S data file 


AUTHORITY 
Authority 


AVAILABLE 
available line flag 
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L25 
142 
152 
166 
166 


47 
141 
145 
165 


238 


132 
134 
134 


82 


242 


180 


52 
259 
264 


ioe 


54 
75 


oC 


151 


154 


42 


245 


BASE 
Base Page 
Data Base Load/Print Utility Routine (QUTL) 


BASIS 
Basis For Overlaying 


BCD 
BCD 


‘BEFORE 
BEFORE 
CHAIN-ORDER IS BEFORE 
TYPE 5 Before Page Image (BEFORE) 
BEFORE page images 
Type 5 Before Page Image (BEFORE) 


BEGIN 
Slave Begin Sync Record Type 03 
TYPE 3 Slave Begin Sync (SLVBGN) 


BETWEEN 
Communication Between Subprograms 
How to Communicate Between Compilers 
pass information between COBOL and FORTRAN 


BINARY 
binary 


BLOCK 
Communication Control Block 
GEFRC file control block 
Communications Control Block (CCBLOC) 


BUFFER 
ASSIGNMENT OF I-D-S BUFFER AND WORK AREAS 
Inventory Record Buffer 
Page Buffer Activity Table 
Data Page Buffer 
Buffer Format 
Buffer Strategy for Inventory Buffers 
Buffer Format 
Data Page Buffer 
Buffer Strategy for Page Buffers 
EMPTY buffer 
Page Buffer Activity Table 


BUFFERS 
Buffer Strategy for Inventory Buffers 
Buffer Strategy for Page Buffers 


CALC 
CALC chain 


168 
Log 


159 
166 


70 
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CALCULATED 
CALCULATED RECORDS 
calculated records 
calculated chain 
Calculated records 


CALL 
CALL statement 
CALL LLINK 
CALL LINK 


CALLING 
return to the calling subprogram 


CALL'S 
CALL's to load specific subprograms 


CARD 
S$ IDS control card 
S$ IDS CONTROL CARD DESCRIPTION 
S$ USERID control card 
S$ PRMFL control card 
$ USE control card 


CATALOG 
System Master Catalog 


CCBLOC 
Communications Control Block (CCBLOC) 


CHAIN 
Linking Detail Record of a Chain 
Selecting Master Record of a Chain 
Chain Ordering 
Prime Chain 
Chain Processing 
Chain NEXT 
Chain PRIOR (optional) 
Chain MASTER (optional) 
Chain Tables 
Chain Definition 
Chain Definition 
Chain Definition Entry 
calculated chain 
CALC chain 
activity chain 


CHAINS 
I-D-S CHAINS 
Multiple Chains 


CHAIN-ORDER 
CHAIN-ORDER 
Chain-Order 
CHAIN-ORDER IS BEFORE 
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40 


49 


CHARACTERISTICS 
OPERATIONAL CHARACTERISTICS 


CHECKSUM 
Checksum 
checksum 
checksum 


CLASSES 
Record Classes 


CLAUSE 
COBOL record description clause 
PICTURE clause 
Editing clause 
PAGE-RANGE clause 
INTERVAL clause 
PAGE-RANGE clause 
RETRIEVAL VIA clause 
DUPLICATES NOT ALLOWED clause 
USE clause 


CLOSE 
Close 


CLOSING 
Closing Journal Files 


COBOL 
COBOL record description clause 
COBOL procedural statements 
OVERLAYING A COBOL PROGRAM 


USING I-D-S WITH A COBOL OVERLAYED PROGRAM 
FORTRAN - INTERFACING WITH COBOL AND I-D-S 
pass information between COBOL and FORTRAN 


CODE 
Rll error code 
reference code 
reference code 
Termination Code 
directive file code is I* 
REFERENCE CODE MANIPULATION 


COMDK 
PAGE EJECT AND COMDK LABELING 
COMDK Labeling 


COMMON 
labeled common 
labeled common area 
labeled common area (.IDS...) 


COMMUNICATE 


How to Communicate Between Compilers 


125 


141 


236 
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COMMUNICATION 
ERROR-REFERENCE communication area 
Communication Control Block 
Communication Between Subprograms 


COMMUNICATIONS 


Communications Control Block (CCBLOC) 


COMPILE 
Translate and Compile 
Translate, Compile, and Execute 


COMPILERS 


How to Communicate Between Compilers 


COMPLETE 
Complete trace entry 
Complete PRTREC entry 


CONCURRENT 
concurrent access 


CONDITIONAL 
I-D-S Conditional Statements 


CONDITIONS 
I-D-S ERROR CONDITIONS 


CONFIGURATION 
Configuration Section 
I-D-S Journal File Configuration 


CONSIDERATION 
Consideration When Mixing Software 


CONSTANT 
Constant Section 


CONTENTS 
Field contents 


CONTROL 
S$ IDS control card 
S$ IDS CONTROL CARD DESCRIPTION 
Communication Control Block 
Control Definition 
-QCD - CONTROL DEFINITION 
$ USERID control card 
$ PRMFL control card 
Record control word 
Slave I-D-S Control Table 
SLAVE I-bD-S CONTROL TABLE 
GEFRC file control block 
Slave I-D-S Control Table 
Slave I-D-S Control Table (SICT) 
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52 
103 
258 


264 


97 
98 


265 


242 
242 


125 


85 


201 


23 
137 


267 


28 


CONTROL (continued) 
Total Control Entry 
Control field 


transferring control during execution 
Communications Control Block (CCBLOC) 


$ USE control card 


COPY 
COPY 


CREATING 


CREATING AN I-D-S DATA FILE 


Creating a Permanent I-D-S Data File 
Creating a Temporary I-D-S Data File 


CRITERIA 


subfile allocation criteria 


CRMAST 


CRMAST directive 


CURRENT 


SELECT CURRENT MASTER 

CURRENT record 

CURRENT record 

Current type of I-D-S operation 
Current record type 


Page and line number of current I-D-S record 


DATA 


DATA ORGANIZATION 

SUMMARY OF DATA STRUCTURES 
DATA DIVISION 

Data Division 

Data Division 


I-D-S DATA FILE STRUCTURE DESCRIPTION 


I-D-S DATA FILE INITIALIZATION 
CREATING AN I-D-S DATA FILE 


Creating a Permanent I-D-S Data File 


I-D-S Data File Structure 
I-D-S data file name 


Creating a Temporary I-D-S Data File 


-Q data file 

I-D-S data file 

I-D-S Data File Allocation 
RECOVERING AN I-D-S DATA FILE 


Data Page 


Buffer 


attributes of an I-D-S data file 
I-D-S DATA PAGES 


Data Page 


Buffer 


I-D-S DATA RECORDS 


PERMANENT 
TEMPORARY 
TEMPORARY 
Data Base 
Data Type 


I-D-S DATA FILE 
I-D-S DATA FILE 


AND PERMANENT I-D-S DATA FILE 


Load/Print Utility Routine 


(QUTL) 


155 


267 


313 


DATE 
Date 


DEALLOCATION 
Subfile Deaillocation 


DEBUG 
Debug 
DEBUG OPTIONS 


DECK 
DECK SETUPS 
deck setup for an I-D-S sort 
SAMPLE DECK SETUPS 


DEFINING 
defining ENTRY POINTS 


DEFINITION 
Chain Definition 
Chain Definition 
Chain Definition Entry 
DEFINITION STRUCTURE 
Record Definition Entry 
Detail Definition 
Master Definition 
Field Definition 
Control Definition 
e-QRD - RECORD DEFINITION 
-QDD - DETAIL DEFINITION 
~-QMD - MASTER DEFINITION 
-QFD - FIELD DEFINITION 
-QCD - CONTROL DEFINITION 


DELAY 
IDSEJ DELAY 


DELETE 
Delete 


DESCENDING 
DESCENDING 


DESCRIPTION 
File Description 
Record Description 
File Description 
I-D-S File Description Entry 
Record Description 
COBOL record description clause 
I-D-S Record Description Entry 
S$ IDS CONTROL CARD DESCRIPTION 


I-D-S DATA FILE STRUCTURE DESCRIPTION 


Record Description 
Page Description 


314 


141 


DESCRIPTIONS 
UTILITY PROGRAM AND SUBROUTINE DESCRIPTIONS 


DETAIL 
Linking Detail Record of a Chain 
detail records 
Detail Definition 
-QDD - DETAIL DEFINITION 


DIRECT 
RETRIEVE DIRECT 


DIRECTIVE 
CRMAST directive 
Directive Processor and Service Subroutine (.QDIR) 
directive file code is I* 
directive 
variable field of a directive 
directive 
I-D-S Directive 


DIRECTIVES 
DIRECTIVES 


DIRECT-REFERENCE 
DIRECT-REFERENCE 
DIRECT—-REFERENCE 


DISC 
$ DISC 


DIVISION 
IDENTIFICATION DIVISION 
ENVIRONMENT DIVISION 
DATA DIVISION 
Procedure Division 
PROCEDURE DIVISION 
Data Division 
Data Division 


DO 
DO 


DONTDO 
DONTDO 


DUMP 
Journal Tape Dump Utility Program (QUTJ) 


DUMP /PRINT 
Storage Tape Dump/Print Utility Routine (QUTD) 


DUPLICATE 
DUPLICATE records 


128 


232 


233 


237 


238 


75 
82 


157 


238 


195 


187 


71 
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DUPLICATES 
Duplicates 
DUPLICATES NOT ALLOWED clause 


TrID TAT. 


DURING 


transferring control during execution 


EACH 
RETRIEVE EACH 


EDITING 
Editing clause 


EJECT 
PAGE EJECT AND COMDK LABELING 
Page Eject in the Listing 


EMPTY 
EMPTY buffer 


END 
TYPE 4 Slave End Sync (SLVEND) 


ENTER 
ENTER IDS 


ENTRIES 
Individual File Entries 


ENTRY 
I-D-S File Description Entry 
I-D-S Record Description Entry 
Chain Definition Entry 
Record Definition Entry 
Total Control Entry 
USER ENTRY POINT 
user entry point (QSTA4) 
Complete trace entry 
Complete PRTREC entry 
I-D-S error entry 
defining ENTRY POINTS 
ENTRY POINT statement, 


ENVIRONMENT 
ENVIRONMENT DIVISION 


ERROR 
Rll error code 
I-D-S error 
i=D=S error entry 
I-D-S ERROR CONDITIONS 


ERROR- REFERENCE 
ERROR-REFERENCE communication area 
ERROR- REFERENCE 
ERROR- REFERENCE 
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oe 
82 


259 


86 


32 


aL 
gL: 


166 


141 


ETC 
ETC 


EXAMPLES 
Examples 


EXECUTE 
Translate, Compile, and Execute 


EXECUTION 
OBJECT PROGRAM EXECUTION 
I-D-S EXECUTION REPORT 
Execution Report 
Execution Report 
execution report 
Execution Report 
transferring control during execution 


EXECUTION INFORMATION 
Execution Information Report Program (QUTR) 


EXIT 
EXIT statement 


FIELD 
prime retrieval field 
sort key field 
randomize field 
match-key field 
Field Definition 
-QFD - FIELD DEFINITION 
variable field of a directive 
Field contents 
Control field 


FIELD-NAME 
Field-name of record 


FILE 
file name 
File Description 
File Description 
I-D-S File Description Entry 
I-D-S DATA FILE STRUCTURE DESCRIPTION 
File System Activity ($ FILSYS) 
I-D-S DATA FILE INITIALIZATION 
CREATING AN I-D-S DATA FILE 
Creating a Permanent I-D-S Data File 
I-D-S Data File Structure 
I-D-S data file name 
Creating a Temporary I-D-S Data File 
-Q data file 
I-D-S data file 
ACCESSING AN I-D-S FILE 
I-D-S Data File Allocation 


206 


143 
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FILE (continued) 
I-D-S JOURNAL FILE 
I-D-S Journal File Configuration 
Journal File Map 
RECOVERING AN I-D-S DATA FILE 
attributes of an I-D-S data file 
GEFRC file control block 
Individual File Entries 
PERMANENT I-D-S DATA FILE 
TEMPORARY I-D-S DATA FILE 
TEMPORARY AND PERMANENT I-D-S DATA FILE 
File Utility Program (QUTU) 
directive file code is I* 
journal file 
FILE OPTION 


FILES 
Mixing Temporary and Permanent Files 
Closing Journal Files 


FILE-CONTROL 
File-Control Paragraph 
FILE-CONTROL paragraph 


FILE-NAME 
file-name 


FILLER 
FILLER 


FILSYS 
File System Activity (S$ FILSYS) 


FIRST 
FIRST 
FIRST 


FIRST- REFERENCE 
FIRST-REFERENCE 


FLAG 
line flag 
available line flag 


FORMAT 
Journal Record Format 
Buffer Format 
Buffer Format 
Tape Format 
Printer Format 


FORTRAN 
FORTRAN - INTERFACING WITH COBOL AND I-D-S 
FORTRAN subprogram 
pass information between COBOL and FORTRAN 
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136 
137 
144 
145 
154 
154 
156 
LTT 
178 
178 
217 
232 
236 
238 


131 
142 


27 
29 


ao 


32 


125 


40 
47 


76 


244 
245 


137 
158 
161 
207 
246 


265 
266 
267 


GECALL 
GECALL 


GECHEK 
MME GECHEK and MME GEROLL 


GEFRC 
GEFRC file control block 


GEIDSE 
MME GEIDSE 


GENERATED 
I-D-S GENERATED GMAP SYMBOLS 


GEROLL 
MME GECHEK and MME GEROLL 


GMAP 
GMAP alter number 
I-D-S GENERATED GMAP SYMBOLS 


GO 
Go 


HEAD 
Head 


HEADER 
PRTREC header 


HEADING 
TRACE heading 


IDENTIFICATION 
IDENTIFICATION DIVISION 


IDS 
SELECT IDS 
IDS Section 
ENTER IDS 
IDS Section 
IDS Section 
S$ IDS control card 
S$ IDS CONTROL CARD DESCRIPTION 


IDSEJ 
IDSEJ typein 
IDSEJ DELAY 


IDS-SPECIAL-NAMES 
IDS-Special-Names Paragraph 


<E 
IF 


Ak 


147 


154 


145 


249 


147 


242 
249 


66 


67 


242 


242 


86 
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IMAGE 


TYPE 5 Before Page Image (BEFORE) 

TYPE 6 After Page Image (AFTER) 

Type 5 Before Page Image (BEFORE) 

Type 6 After Page Image (AFTER) 
IMAGES 


BEFORE page images 
AFTER page images 


IMPERATIVE 
I-D-S Imperative Statements 


INDICATOR 
level indicator MD 
Indicator 


INDIVIDUAL 
Individual File Entries 


INFORMATION 
pass information between COBOL and FORTRAN 


INITIALIZATION 
I-D-S DATA FILE INITIALIZATION 


INITIALIZE 
Page Initialize Utility Routine (QUTI) 


INPUT-OUTPUT 
Input-Output Section 


INTERFACING 
FORTRAN - INTERFACING WITH COBOL AND I-D-S 


INTERVAL 
INTERVAL 
INTERVAL clause 
Interval 
INTERVAL 


INVENTORY 
inventory records 
Inventory Record Buffer 
I-D-S INVENTORY RECORDS 
Buffer Strategy for Inventory Buffers 


[* 
directive file code is I* 


I-D-S CHAINS 

I-D-S RECORDS 

I-D-S PROGRAMMING LANGUAGE 
I-D-S File Description Entry 
I-D-S Record Description Entry 
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141 
141 
165 
165 


145 
145 


61 


28 
141 


156 


267 


125 


192 


27 


265 


I-D-S (continued) 
I-D-S Imperative Statements 
I-D-S Conditional Statements 
I-D-S DATA FILE STRUCTURE DESCRIPTION 
I-D-S DATA FILE INITIALIZATION 
CREATING AN I-D-S DATA FILE 
Creating a Permanent I-D-S Data File 
I-D-S Data File Structure 
I-D-S data file name 
Creating a Temporary I-D-S Data File 
I-D-S data file 
ACCESSING AN I-D-S FILE 
I-D-S Data File Allocation 
I-D-S JOURNAL FILE 
I-D-S Journal File Configuration 
RECOVERING AN I-D-S DATA FILE 
I-D-S EXECUTION REPORT 
ASSIGNMENT OF I-D-S BUFFER AND WORK AREAS 
deck setup for an I-D-S sort 
Slave I-D-S Control Table 
SLAVE I-D-S CONTROL TABLE 
attributes of an I-D-S data file 
Slave I-D-S Control Table 
Slave I-D-S Control Table (SICT) 
I-D-S INVENTORY RECORDS 
I-D-S DATA PAGES 
I-D-S DATA RECORDS 
I-D-S UTILITY PROGRAMS AND SUBROUTINES 
PERMANENT I-D-S DATA FILE 
TEMPORARY I-D-S DATA FILE 
TEMPORARY AND PERMANENT I-D-S DATA FILE 
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